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(Pour les seuls numéros encore 
disponibles en décembre 1986) 

Numéro 6 

Essais de l'XL DOS AUTOVERIF 
pour améliorer la fiabilité du char¬ 
gement cassette. Essai de la carte 8 
E/S MAGECO. VOICE : ORIC 
parle dans interface. RENUM-DES- 
TRUC renumération et suppression 
de lignes Basic. Les Interrup¬ 
tions : une horloge. Master-mind : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MICRODISC. La 
Jasmin-Printer (Brother M 1009) â 
l'essai et recopie d'écran pour cette 
impnmante. 

Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour d'horizon des Monl- 
teurs-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS. 
Essai du crayon optique Recopie 
d'écran sur MCP 40 L'interface 
TVS. 

Numéro 10 

Essai du modem TONIC. Le Basic 
Français Utilitaires pour vous plaire 
(1). Modifications du MONITEUR 
1.0 de LORCIELS. CROCKY : jeu. 
Compte bancaire : gérez-le sur 
MICRO DISC (1). Compatibilité DTL 
2000 et JASMIN. 

Numéro 11 

Hors-série rempli d'une multitude de 
programmes en tous genres. 

Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 


l'ORIC. Essai de la table graphique 
GRAPHISCOP. Le partage mé¬ 
moire de TORIC. Utilitaires pour 
vous plaire (2). Un Moniteur- 
Assembleur Compte bancaire 
(suite et fin). 

Numéro 13 

Transfert du FORTH sur MICRO¬ 
DISC. TANDEM 13 un logiciel pour 
le DTL 2000. Jouez avec les cou¬ 
leurs de fORIC. Utilitaires pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODISC et JASMIN : 
ils communiquent. City on Raid : 
jeu. 

Numéro 14 

Le SEDORIC à la loupe. Un éditeur 
de caractères en langage ma¬ 
chine. CONJUGAISON : ORIC à 
l'école. Sortir le son sur le télé¬ 
viseur Fenêtres (fin). Calculez 
votre Epargne-Logement Scrol- 
ling latéral. Sauvegarde des vari¬ 
ables avec rORIC-1 . Un utilitaire : 
Super Désassembleur Jouez 
avec les Mots-Cachés. 


Numéro 15 

Une imprimante à l'essai : la MT 
SOS. Spirographe rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de la carte 256 
couleurs de Microfutur. Editeur de 
secteurs sur Jasmin. MUSICORIC 
pour que l'ORIC-1 devienne musi¬ 
cien. Carte série pour liaison avec 
MINITEL. Educatif : le moteur è 4 
temps Redéfinition de caractères 
pour EASYTEXT. 

Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de l'écran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : logiciel d'application de 


la carte série Minitel Recopie ra¬ 
pide sur Imprimante mode texte. 
Ecriture évoluée. LEONARD : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacquettes de cas¬ 
settes pour GP 50 Catalogua 
amélioré sur Jasmin 

Numéro 18 

Un drive 3"1/2 à Triphonie : 
TORIC devient orgue. Connaissez- 
vous les objets tractais ? Le 
Devin : chirologie ou jeu ? Un jeu : 
Frog Panlc. Pour lister un program¬ 
me à partir du MINITEL (et de la 
carte série) : MUST. Accordez vos 
instruments de musique avec Fré- 
quencamètre. Text-Hires (fin). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml009 
(Jasmin printer). Lister TEPROM du 
Microdisc. 

Numéro 19 

Léonard : fin de l’uolitaire création 
graphique. Modifications de IAT 
MOS et du MICRODISC. Un mlnl- 
Interpréteur Protection du Hl 
MEM. Le tn en langage machine 
Jeu éducatif : EUROP'ORIC En sa 
voir plus sur le SEDORIC Compte 
bancaire gérez-le sur JASMIN Uti¬ 
litaires pour vous plaire (4). 

Numéro 20 

CALCULATOR : banc d'essai - 
PUISSSANCE 4 jeu - Recopie d'é¬ 
cran pour FASTEXT 80 - Mini Inter¬ 
préteur Basic. 

Numéro 21 

Les interruptions - Animation gra¬ 
phique en 3 D - Jeu : Smgene (1) - 
SEDUTIL pour mieux utiliser SEDO¬ 
RIC - Recopie page VIDEOTEX - 
Butler soft pour imprimante - Super 
recopie d’écran. 


Numéro 22 

Tout sur le VIA 6522 - GROS : 
caractères géants - MUSICORIC et 
JASMIN - Jeu: Singeries (2) - 
SWAP OVERLAY - Diététique : 
mieux s'alimenter - Schéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 23 

Educatif : TABLORIC. Pnnt Formaté 

- Stnng : commandes graphiques - 
Sauvetage d'un programme - Cal¬ 
culs de TORIC - Trames et collages 

- Cassa briques - clipping. 

Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - Singerie (fin) Calculs dans 
N - Dossier TELESTRAT - Mini- 
Print : éditeur de banderolles - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 

Numéro 25 

Test : le Jasmin-PC. Ces fichiers 
dont tout le monde parle - Ecriture 
stylée sur MCP 40 - Jeu de la vie - 
Rem color - En savoir plus sur FT 
DOS - Data ♦ - ORIC à 2 ROM - 
MUSIC(I) 

Les articles et programmes rappelés 
ci-dessus ne forment que l'essentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter à compléter votre collec¬ 
tion de THE ORC 









































20, rue de Montreuil - 94300 VINCENNES - *2? (1) 43.28.22.06 

du mardi au vendredi :10h30à13h - 15hà19h — le samedi : 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHÉVOC 1 


PROMOTION 


K> 




0 


JASMIN 2 "+" 

Le lecteur de disquette que votre Oric préfère. 


Il ne lui manque que la parole', synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
rampaone • 

□ synthétiseur vocal .... XrtfF240F 


K \ 


\ 

MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il 'discute' 
avec ses semblables et accède au réseau 'minitel' 

Fourni avec interface intégrée et logiciel 
□ modem DIGITELEC 1490 F 



□ moniteur couleur 2490 F 












Interface tous jeux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de |eux 
□ interface tous jeux 360 F 




Rallonge Péritel 

Ne soyez plus "collé" â l’écran • 
□ rallonge péritel. 


95 F 


m 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 



Imprimante CITIZEN 1200 

120 CPS - matrice 9x9- traction ou friction - jusqu'à 
3 ex. compatible EBSON garantie 2 ans - interface cen 
ironie intégrée 

□ imprimante CITIZEN 120 D 2490 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro ordinateurs vous évitera bien des soucis. 
Entrée OIN ou Jack. Niveau réglable Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 



imprimante Smith Corona Fastext 80 
• 80 caract./sec.. impression bidirectionnelle, 
entrainement par friction, interf. contronic. bulfer 
intégré, écriture normale ou condensée 

C imprimante fastext 80 . JJWuF 1490 F 

□ entrainement picot pour F 80 . 320 F 




□ lecteur double tète 


2.490 F 


□ atmos . 990 F 






PROMOTION 






logiciel ORIC 1 exclusivement 




pour 2 titres : 145 F pour 3 litres :195 F pour 4 litres : 220 F pour 5 titres : 250 F 



□ carnet d'adresses 


□ jogger 


□ mushroom mania 




□ trace dump 


□ calorie 


□ centipède 




□ black base 


□ le hevre et la tortue 


□ gastronon 




□ oric-gestion 


□ le monde végétal 


□ oric munch 




□ oric mind 


□ hunchback 


□ facturation 




□ yam 


□ la chenille infernale 


□ ultima zone 




□ guerre des couleurs 


□ morpion 


□ pengoric 




□ gencar 


□ dicodoric 


□ finances 




□ ciros 


□ zig zag 


□ copy écran (pour GP 100) 



□ fromage 


□ acheton s rage 


□ calculus 




□ caractor 


□ ice giant 


□ super break oui 











□ 1815. 

160 F 

□ dossier g 

140 F 

□ meurtre gde vitesse . 

180 F 



□ 3 d longus . 

140 F 

□ dracula's revenge 

110F 

□ mission delta 

95 F 



□ 3 d munch 

140 F 

□ elephorm/color. 

100 F 

□ moniteur 1.0. 

140 F 



□ add sous. 

165 F 

□ élysée 

145 F 

D mots croisés . 

120 F 



□ annuaire . 

120F 

□ flipper. 

140 F 

□ nessy 

95 F 



□ ass symbol 

150 F 

□ formule 1. 

130 F 

□ oric base 

115F 



□ assimil (anglais) 

250 F 

□ frelon. 

120 F 

□ orthocrack vol. 1 . 

165 F 



□ atlantid. 

120 F 

□ frigate comm. 

120 F 

□ orthocrack vol 2 

165 F 



□ atlantis. 

140 F 

□ fromage. ...... 

95 F 

□ orthocrack vol. 3 . . 

165 F 



□ basic étendu 

120 F 

□ gest (gest. banc). . . 

130 F 

□ outimalicl . 

125 F 



□ basic turbo 

140 F 

□ gestio de stock. 

145 F 

□ pastablasta ... 

100 F 



□ bibliof iches . 

120 F 

□ hades . 

250 F 

□ rabbit . 

90 F 



□ doggy. 

120F 

□ hyperspace 4 

120F 

□ A.T.M 

130 F 



□ brique à brac. 

90 F 

images (d a o ). 

130 F 

U polyfichier . . 

1 8u y 



□ le fer d amukor 

195 F 

□ insect msamty. 

100 F 

□ r.d.v. de la terreur 

95 F 



□ locus. 

100 F 

□ intox et zoé. 

180 F 

□ ratsplat 

105 F 



□ businessman 

I4U \ 

. ! l'apprends l'anglais 

125 F 

□ reverse. 

90 F 



□ calcul mental 

120 F 

j apprends la c a.o 

150 F 

□ saga. 

150 F 



□ canm bail 

100 F 

l karaté . 

99 F 

□ stanley. 

120F 



□ carmamac 

110 F 

1 aigle d'or ... 

180 F 

□ star 

120 F 



□ montsegur. 

140 F 

□ la cite maudite 

140 F 

□ starter 3 d . 

129 F 



□ mission impossible 

120 F 

□ la llute mca. 

120 F 

□ stresse 

120 F 



! 'callenger 

130 F 

□ notwik puzzle. 

120 F 

□ super jeep. 

120F 



□ citadelle 

125 F 

□ tyrann. 

185 F 

□ system animation 

140 F 



□ davidact 

125 F 

(J le diam ile maud 

160 F 

□ tekms . 

120 F 



□ clovis 1 (échecs) . 

150 F 

□ le général 

120 F 

□ tendre poulet. 

120 F 



□ cobra. 

95 F 

□ le mand dr gemus 

140 F 

□ terminus. 

120 F 



□ cobra pinball. 

140 F 

□ le millionnaire. 

120 F 

□ thehobbit 

180 F 



□ colorie. 

. 95 F 

□ lemmotaure . 

165 F 

□ tic tac. 

120 F 



□ colossal adventure 

130 F 

□ retour dr gemus 

160 F 

□ tortue logic. 

150 F 



□ compilateur graphique 

250 F 

□ le secret du tomb 

140 F 

□ triathlon. 

150 F 



□ crypt show. 

100 F 

□ le trésor du pirate 

95 F 

D ultima zone. 

100 F 



□ dam buster. 

105 F 

□ lissage. 

125 F 

□ une affaire en or ... . 

145 F 



□ damsel in distress 

120 F 

□ logo vl o. 

295 F 

□ vision. 

120F 



□ dedal . . 

110 F 

□ lorigraph. 

290 F 

□ vortext. 

260 F 



□ dialogue 

125 F 

□ lontel 

395 F 

□ waydor. 

105 F 



□ digger. 

100 F 

□ macadam bumper 

160 F 

□ world war 3 .... . 

95 F 



□ dit ?d‘ac ! (sc. nat 5 e ) 

75 F 

□ master paint. 

250 F 

□ xénon 1. 

100 F 



□ dit ?d ac ! (sys. aut ). 

75 F 

□ math-sam (math.prim.) 

125 F 

□ xénon 3 

105 F 



□ don juan et drageurs. . 

140 F 

□ mélies-toi de méphisto. 

80 F 

□ zorgon s revenge ■ 

105 F 



















□ interfaces pour oric 

59 F 

□ l'oric à l'affiche 

95 F 

□ guide pratique oric 1. 

75 F 



□ l'oric à nu. 

151 F 

□ prog en lang. mach . 

. 95 F 

□ prog. pour oric 1 . . . . 

59 F 



□ guide pratique atmos 78.50 F 

□ mieux prog. sur oric . 

110 F 

□ la prog. jeux aventure . 

. 90 F 



□ programme pour oric 1. 

85 F 

□ applications du 6502 

128 F 

□ la conduite de loric . . 

80 F 



□ boite à outils pour oric 

35 F 

□ manuel réf t2 

120 F 

□ apprenez élec sur oric 

110 F 



□ jeux en basic sur atmos 

49 F 

□ manuel de rél tl. 

138 F 





□ 56 prog. pour oric . . . 

. 78 F 

□ t-dos et ses fichiers . 

150 F 





INTERFACE T.V. 



Cette interface va cous permettre de transformer votre moniteur couleur en T V 
□ interface TV 1390 F 


Cassettes vierges C20 

□ les 5. 

J les 10 

J disquette vierge 3 pouces 


45 F 
80 F 

35 F 



TELESTRAT 

La télématique à la portée de tous ! 

Puissant (64 K), doté d'un basic 'costand' (plus de 250 
instructions), compatible ATMOS ou ORIC (par cartouche) 
accompagné d'un lecteur de disquette double tète (400 K) 
le TELESTRAT est déjà ainsi un ordinateur 'top niveau 1 
Ajoutez y toutes les ressources télématiques qu'il est capable 
de gérer sans interface, câble ou logiciel supplémentaire puis 
que le TELESTRAT est le seul ordinateur où toutes les fonc¬ 
tions 'MINITEL' sont intégrées d’origine et vous comprendrez 
que le TELESTRAT c'est l'ordinateur de demain disponible 
dès aujourd'hui ! 


□ TELESTRAT 

□ souris 

□ cartouche ROMATMOS 

□ cartouche ROMORIC 1 


3990 F 
490 F 
200 F 
200 F 


4 ' 


TIRVITT 2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira 1 
Contacts par microswitches. un contacteur sous le 
socle permet le choix 4 ou 8 directions 
□ TIRVITT 2 150 F 



Le 'musf pour les amateurs de graphisme Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
’top niveau" des résultats obtenus, (ex options faire 
des points, traits, boites, cercles, texte, remplir, 'zoom' i 


Llgraphiscop 



990 F 


□ joystick compétition PRO 

. 170 

□ bloc alun UHIC 

IbU 

Tlalim 1? V pour pentel 

75 

□ rallong de bus 1 Slot 

.110 


□ câble imprimante. 160 F 

□ stylos pour MCP40 70 F 

□ rouleaux papiers MCP40 (par 2) 65 F 



Cette interface vous permet de laisser brancher en per 
manence trois appareils utilisant la prise péritel 
□ interface multipéri. 750 F 


COMMENT COMMANDER : Je possède : D0RIC1 DATMOS 

- Cocher leis) articles) déstrélsf ou faites-en uoe liste sur une feuille à pan - Faites le total + frais de pon (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F) 


NOM : _ 

ADRESSE : 


PRENOM 


TEL :_ 

CODE POSTAL : 


VILLE 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


■es... H = I.IUE1 


Tou» no» prix »ont indicatif» ri rn fonction dtt stock s 













































































































































V> • 


/ • 


Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 


Le numéro 


99 . 52 . 98 . 11 . 
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les articles et programme* que nous publions dans 
ce numéro bénéficient pour une grande part du 
droit d'auteur. De ce fait, ils ne peuvent être repro¬ 
duits, imités, contrefaits, même partiellement, sons 
l'autorisation écrite de la Société SORACOM et de 
l'auteur concerné, les différents montages présen¬ 
tés ne peuvent être réalisés que dons un but privé 
ou scientifique mois non commercial Ces réserves 
concernent les logiciels publiés dans la revue. 
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EDITORIAL 



S'unir pour partager idées et connaissances, voilà le secret qui permet de mieux uti¬ 
liser ce bon vieil ORIC. Les débutants questionnent, les chevronnés répondent. 
Théorie forme désormais le seul grand club d’utilisateurs d'ORIC... Pour que l'édifi¬ 
ce soit solide, il faut que chacun apporte sa contribution. N'hésitez pas à faire profi¬ 
ter les autres de vos dernières trouvailles : Théorie vous offre ses colonnes ! 

A toutes et à tous, meilleurs voeux pour l'année 1987. 

La Rédaction 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 


THEORIC ? 



COMMANDE ANCIENS NUMEROS 
(valable jusqu'à épuisement des stocks) 

Numéros 6à21 .30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1, 2, 3. 4, 5, 8,16 
NOM ..Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port 


: 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au dessus 

[Ci-joint, chèque bancaire ou postal de 
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COURRIER 



De Xavier BURIE 
78 BEYNES 

- Ayant reçu en cadeau une impri¬ 
mante GP 700 (pouvant écrire en 7 
couleurs plus le blanc), je voudrais 
savoir si vous pourriez publier un 
programme capable de faire la 
recopie d'écran, en couleur, pour 
ce matériel. 

- Hélas, non ! Nous ne possé¬ 
dons , dans nos cartons, aucun logi¬ 
ciel susceptible de vous satisfaire. 
De plus, il nous est impossible de le 
développer... sans posséder le ma¬ 
tériel. Peut-être que, parmi nos lec¬ 
teurs, il en est un qui aurait déjà la 
solution à ce problème ? 



De R. BARBIER 
75 PARIS 


- Je souscris entièrement à la 
remarquable analyse de Michel Zu- 
pan, publiée dans THEORIC n° 
23... Programmes publiés : bonne 
variété, pour tous les niveaux... 
mais il faudrait trouver une solution 
pour éditer, sur cassette, les pro¬ 
grammes de THEORIC. Pourquoi 
ne pas faire une souscription ? 
-Vous n'êtes pas le seul à parta¬ 
ger les opinions émises par Michel 
Zupan. La publication de sa lettre a 
déclenché beaucoup de réactions 
identiques à la vôtre. Il faut recon¬ 
naître que son analyse était, effecti¬ 
vement, remarquable ! 

En ce qui concerne les cassettes, 
nous pourrions envisager de satis¬ 
faire la demande si (et seulement si) 
elle était au moins supérieure à 100 
commandes par mois. Le courrier 
reçu à ce jour ne permet pas de 
penser que ce chiffre serait atteint. 
Dans le souci de satisfaire tout le 
monde, nous invitons les person¬ 
nes intéressées à se manifester, 
par écrit, auprès de la rédaction. Si 
la demande s'avérait être suffi¬ 


sante, nous proposerions alors un 
"abonnement cassettes" pour 6 ou 
11 numéros. 

Nous attendons vos réactions sur 
ce sujet - 



abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise I 



De Patrice LEMITRE 
26 MONTELIMAR 


-Je partage entièrement le point 
de vue de Michel Zupan (NDLR : 
encore un I) mais l'optimisme affi¬ 
ché dans THEORIC n° 25 est-il sin¬ 
cère ou s'apparente-t-il à la mé¬ 
thode COUE? 

Enfin, si ma lettre devait être pu¬ 
bliée, je voudrais remercier "BLEU- 
CIEL INFORMATIQUE" d'éditer en¬ 
core des (bons I) logiciels pour 
ORIC... 

- L’optimisme qui anime la rédac¬ 
tion de THEORIC est tout-à-fait sin¬ 
cère ! Si l'ORIC est délaissé par cer¬ 
tains, ce n'est pas pour autant que 
tous les possesseurs de ce maté¬ 
riel vont s'en défaire du jour au 
lendemain. Par conséquent, tant 
que THEORIC aura toujours suffi¬ 
samment de lecteurs, comme c'est 


le cas actuellement, il ne sera pas 
question d'arrêter sa publication. 
Tout au plus, si le volume de 
publicité déjà bien réduit venait à 
baisser davantage, serions-nous 
conduits à augmenter (un petit 
peu, rassurez-vous !) le prix de la 
revue afin de la maintenir en vie. Le 
meilleur moyen de nous soutenir 
c'est encore de vous abonner : 
pensez-y ! 

Quant au dernier point de votre 
lettre, nous transmettons vos remer¬ 
ciements à "BLEU-CIEL INFORMA¬ 
TIQUE" et aux auteurs concernés... 



De J. GUESNIER 
35 MONTFORT 


Dans la rubrique "courrier- page 6 
Théorie 25, vous indiquez que le 
Téléstrat permet de relire directe¬ 
ment des fichiers A TMOS sur cas¬ 
settes et de les transférer sur dis¬ 
quettes STATSED. Mais ce n'est 
pas si simple que cela ! 

Il y a en effet 3 opérations à effec¬ 
tuer : 

1°) Charger d'abord le fichier Stras- 
ted D7DSK qui va permettre de 
charger une première fois le fichier 
cassette sur la disquette avec la 
désignation X. CAS (extension cas) 
2°) Charger ensuite le fichier Strat- 
sed BASEO qui va modifier le 
fichier précédent déjà sur la disquet¬ 
te en fichier séquentiel (1 ligne = 1 
enregistrement) et lui donner l'ex¬ 
tension .DA T. 

3°) Charger enfin le fichier Stratsed 
SEOHYP qui va transformer le 
fichier séquentiel précédent (exten¬ 
sion dat) en fichier langage HYPER- 
BASIC, fichier qui est alors chargé 
sur le TELESTRAT et qui peut être 
listé et sauvé ! (toutes les explica¬ 
tions sont fournies sur les divers 
fichiers STRASED). 

Mais ce programme enfin chargé 
avec l'extension .COM, n'est le plus 
souvent pas exploitable directe¬ 
ment, car chaque fois que le lan¬ 
gage HYPER-BASIC n'a pas trouvé 
les formes équivalentes en langage 
A TMOS. il est mis une " ' " (REM) en 
tête de ligne et cette ligne doit être 
corrigée pour pouvoir être lue !!!. Il 
en est ainsi pour les RE AD, DATA, 
IN P UT" ", STR$ etc... ce qui donne 
encore pas mal de travail de mise au 
point ! 
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Du côté des serveurs 

Nous ne pouvons envisager de 
présenter, c’est évident, tous les 
microserveurs qui voient le jour 
actuellement, bâtis autour d'un 
TELESTRAT ou d’un ATMOS. 
Nous retiendrons les plus originaux 
ou ceux dont l’intérêt est évident. 
Ainsi, "le Partenaire Social" pro¬ 
pose un réseau télématique privé, 
organisé autour du TELESTRAT, 
s’adressant en priorité : 

-aux chefs du personnel et direc¬ 
teurs des relations sociales. 

-aux secrétaires de comités d’en¬ 
treprise. 

- à tous décideurs et gestion¬ 
naires d'entreprise 

Ce serveur est le premier qui soit 
exclusivement réservé au droit du 
travail dans l'entreprise. 

Le numéro d’appel est le : 
(1)45.69.25.25 

A essayer aussi : 

- TELA au 67.92.08.16 région 
MONTPELLIER créateur Jean 
TILLIE 



A propos des groupes de 
travail 

Nous portions en avant, dans un 
précédent numéro, la suggestion 
d’un de nos lecteurs de constituer 
des groupes de travail sur un thè¬ 
me donné. 

On ne peut pas dire que cette 


annonce ait déclenché beaucoup 
de réactions ! Jugez plutôt : deux 
lettres seulement, l’une pour pro¬ 
poser des thèmes de réflexion, 
l'autre pour proposer... des ser¬ 
vices ! Réveillez-vous un peu et 
ne pensez pas qu’à votre Space 
Invaders ! Ecrivez-nous pour pro¬ 
poser vos services dans un do¬ 
maine particulier ou pour soumettre 
des idées de sujets à traiter. 

Yannick GIDOUIN ouvre la voie avec 
plusieurs suggestions parmi les¬ 
quelles nous avons retenu : 
Impression d’une table des réfé¬ 
rences croisées : 

Numéros des lignes contenant 

• les variables 

• les branchements 

• les instructions d'un même type 

et surtout, créer une instruction 
EXECUTE 

Cette instruction, très puissante 
mais rarement présente dans les 
BASIC, permet à un programme de 
se générer de nouvelles instruc¬ 
tions ou de modifier ses propres 
instructions (voir exemple ci-joint, 
qui tourne sur un ordinateur dispo¬ 
sant de cette instruction), malgré la 
syntaxe légèrement différente, tout 
le monde comprendra que ce pro¬ 
gramme s'est profondément modi¬ 
fié lui-même et que la seconde exé¬ 
cution n’a plus rien à voir avec la 
première. 

Lorsque notre brave ORIC dispo¬ 
sera de cette instruction (dont la 
syntaxe peut être différente) les 
portes des générateurs automa¬ 
tiques de programmes lui seront 
grandes ouvertes. Il sera en cela 
mieux pourvu que d’autres ma¬ 


chines plus chères, y compris l'IBM 
et ses plus ou moins compatibles. 
L’instruction EXECUTE se compor¬ 
te en mode programme comme le 
fait la frappe au clavier en mode 
commande. Pour arriver au résultat 
désiré, il devrait suffire de transférer 
la chaîne de caractères dans le buf- 
fer du clavier puis d'appeler la rou¬ 
tine déjà présente en ROM qui : 

• exécutera la commande immé¬ 
diatement si celle-ci ne commence 
pas par un numéro de ligne. 

• en fera une nouvelle instruction 
si le début de la chaîne est un 
numéro de ligne. 

• détruira une instruction existante 
si la chaîne ne contient que le seul 
numéro de ligne. 


LIST 



0020 

FOR I 

*1 TO ÎO 

0030 

A* e ST R ( I ) ♦ ” "♦"PRINT "♦STRtD 

0040 

EXECUTE A4 

0050 

NEXT 

I 

0060 

DELETE 20.60 

0070 

END 


) RU N 



READY 


>LIST 


0001 

PR 1 NT 

1 

0002 

PRINT 

** 

0003 

PRINT 

3 

0006 

PRINT 

4 

0005 

PRINT 

3 

0006 

PRINT 

6 

0007 

PRINT 

7 

0008 

PRINT 

8 

0009 

PRINT 

9 

0010 

PRINT 

10 

0o70 

END 


R UN 



1 



2 



•> 



4 



5 



6 



7 



a 



9 



10 



READY 


> 






Gagnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 
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ViïFdNEDU LOGICEL 


D epuis le temps que Norsoft nous promettait la suite de Tyrann, 
nous commencions à désespérer. Mais sachez que votre at¬ 
tente n'aura pas été vaine, car ce logiciel est fabuleux. 



Nous avons reçu la version 
sette de ce programme. Un su¬ 
perbe coffret, avec une jaquette 
d'un design (pardon, graphisme) 
superbe, qui une fois ouvert, laisse 
apparaître deux cassettes, une no¬ 
tice de 64 pages, une carte du lieu 
de l’action, une fiche de person¬ 
nage, et une feuille de monstres. 

La manuel, car on peut parler de 
manuel, explique fort bien com¬ 
ment charger et mettre en oeuvre 
ce logiciel. En effet, avant de péné¬ 
trer dans une des villes des Terres 
du Nord (C’est là où se déroule 
l’action), il vous faudra d’abord, de 
même que dans Tyrann I, créer une 
troupe d'aventuriers. Une option 
fort intéressante vous permet de re¬ 
prendre des personnages issus de 
Tyrann I, afin de les inclure dans 


votre nouvelle équipe de choc. Si 
nous n'aviez pas d'aventuriers dans 
vos tiroirs, Norsoft vous propose 
alors deux options : créer de tou¬ 
tes pièces une troupe, ou re¬ 
prendre un scénario type livré avec 
le programme. La création d’une 
équipe n’est pas une mince affaire, 
et une face entière d’une des deux 
cassettes y est consacrée. (A noter, 
au sujet des cassettes, les quel¬ 
ques problèmes de chargements 
rencontrés lors du test : impos¬ 
sibilité de charger deux fois de 
suite le programme sans erreur. Ce 
petit problème est compensé par 
une protection intelligente qui 
détecte les erreurs de chargement, 


et vous informe du résultat). Ces 
problèmes n'existant bien évidem¬ 
ment pas sur la version disquettes, 
nous pouvons donc voir comment 
créer une équipe d'aventuriers 
pour LE FER D'AMNUKOR. Le ma¬ 
nuel vous renseigne fort bien là- 
dessus, et ce avec un humour 
certain et subtil ("Hélas oui, il est par¬ 
fois nécessaire d'anéantir un per¬ 
sonnage pour le bien de tous !!!). 
La face utilitaire vous propose donc 
9 options différentes : Créer, Re- 


OUTIMATIC 1 

BLEU-CIEL INFORMATIQUE 
Utilitaire 

Si l'on pouvait être investi du pou¬ 
voir de décerner une médaille, c'est 
certainement à BLEU-CIEL INFOR¬ 
MATIQUE que l’équipe de THEO- 
RIC l'attribuerait. En effet, depuis 
plusieurs mois, cet éditeur reste fi¬ 
dèle à l'ORIC et continue à pro¬ 
poser du logiciel pour notre ma¬ 
chine si délaissée par aillleurs. 

Avec OUTIMATIC 1, on se trouve 
en possession d'une bonne collec¬ 
tion d'utilitaires. En fait, la cassette 
contient 3 programmes. Le premier 
s'intitule "Aide à la programmation 
BASIC" et fera le bonheur de tous 
les programmeurs... Il permet de 
compter le nombre de lignes 
BASIC d’un programme, d'en renu¬ 
méroter les lignes, de rechercher 
l'occurence des différentes varia¬ 
bles, de remplacer des textes (chaî¬ 
nes de caractères) ou des varia¬ 
bles, supprimer des lignes, d'en 
assurer la copie ou le transfert. De 
plus, ce programme écrit en lan¬ 
gage machine se charge rapide¬ 
ment et est organisé autour d'un 
menu le rendant souple d'emploi. 

Le second programme est COPIX, 
un copieur de cassette à cassette. 
Bien 

pratique également mais... son effi¬ 
cacité n'est pas absolue. 
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GANDALF 


OBJETS 


POSSEDES 


8351 écus 
SORTS MEMORISES 


T ord—boyaux 
Pavois 

Casque de métal 
Cotte de mailles 
Philtre Kenit- 
Arc court 
Philtre Kenit 
Tord-boyaux 


5x 

TELUK 

5x 

SIRIJL 

3x 

NÜCUT 

4x 

KEMF'Y 

4x 

ASEKO 

2x 

YF'AFET 

2 

Ü KO Y 

3x 

KEN IT 

2x 

ZINAK 

3x 

MEFUXÜ 

3x 

TENU H 

4x 

Jl JRI. JD 

2x 

INOXAT 

4x 

XOLUK 

2x 

ÜNALES 


UOUS POUUEZ 


JETER UN SORT 
DONNER DE L'OR 
DONNER UN OBJET 
UTILISER UN OBJET 
ABANDONNER UN OBJE 
ARME PREFEREE 



nomer, Détruire, Inspecter, Trans¬ 
férer, Charger, Sauver, Imprimer, 
Quitter. La sélection de ces fonc¬ 
tions, dont le nom est fort explicite, 
se fait en déplaçant une barre 
clignotante de la façon suivante : 
n'importe quelle touche la fait des¬ 
cendre d'un cran ; Shift, CTRL, ou 
FUNCT et n’importe quelle touche 
fait remonter d'un cran. La valida¬ 
tion s'effectue par une pression sur 
la touche RETURN. 

Une fois votre équipe créée, vous 
pouvez enfin pénétrer dans les 
Terres Du Nord. 

Il vous faudra pour cela insérer dans 
votre magnétophone (si vous uti¬ 
lisez ce support) la deuxième cas¬ 
sette. Vous aurez alors à patienter 
quelques (longues !) minutes, de¬ 


vant un écran vous ordonnant "ON 
SE CALME ET ON ATTEND". La 
seule solution qui vous reste est de 
lire votre revue favorite (THEORIC, 
of course) en attendant le charge¬ 
ment du programme. Ah, les 
heureux possesseurs de dis¬ 
ques ! 

Vous arrivez alors dans la ville de 
TELUTIR (pourquoi pas ?), pour 
entamer votre première partie. 
Vous pourrez alors sélectionner les 
membres de l'équipe qui auront 
l'honneur (ou le malheur... ) de des¬ 
cendre dans les caveaux de la ville, 
grâce aux fonctions Ajouter et 
Retirer. Vous pourrez également 
Inspecter vos personnages, voir 
le temps écoulé depuis la création 
de ce scénario grâce à une Hor¬ 
loge, aller voir le Sage, rentrer à la 
Taverne, ou un tavemier vous pro¬ 
posera non seulement un bon lit, 
mais aussi un jeu d'argent qui 
enrichira peut-être vos person¬ 
nages, mais sûrement le tavernier ! 
Si vous n'avez pas tout perdu 
comme moi, il vous sera possible 
d'aller chez le Marchand, afin de 
vous équiper. 

Ces préparatifs effectués, vous 
allez alors descendre dans le ca¬ 
veau de la vile. La vision du laby¬ 
rinthe est semblable à celle de 
TYRANN, si ce n 'est que l'image 


PAUL'OCHOU MISE M-« I » *00 



MISER 


COLLECTER 

QUITTER 


(type fil de fer 3D) apparaît plus 
rapidement, et qu'un sort de vue 
perçante (NIXIS) permet de porter 
de deux à sept cases la distance de 
vision. Tous les sorts sont expli¬ 
qués dans le manuel, avec en plus 
quelques conseils d'utilisation et 
de stratégie ("Il est indispensable 
de faire le plan du labyrinthe"). 

Après avoir pris les derniers 
conseils qui vous expliquent le 
pourquoi et le comment des 
Camps, vous devrez alors affronter 
des monstres de tous poils. Ceux 
de TYRANN vous paraîtront alors 



JNûr.FA ART ET Rît R .A 



comme des gentils nounours en 
peluche, que l'on trouve dans les 
grands magasins à la veille de Noël. 
En conclusion, nous pouvons dire 
que Norsoft nous présente là un 
logiciel d'excellente qualité, qui ne 
manquera pas de passionner les 
amateurs de Dungeons & Dragons, 
Appel de CH'TULU, et autres jeux 
de rôles du même genre. Les non- 
initiés pourront également s'en ser¬ 
vir, mais il est préférable pour eux 
de faire leurs armes (Au sens 
propre) sur Tyrann I. De toutes 
façons, initiés ou non se doivent de 
posséder dans leur logithèque 
TYRANN II, LE FER D'AMNUKOR, 
et de remercier Norsoft de faire 
encore du soft de très haute qualité 
surORIC. Eric VIEL 



taire de création de pages écrans : 
il va ravir tous ceux qui désirent don¬ 
ner un aspect "fini" à leur réali¬ 
sation. Un éditeur graphique per¬ 
met de créer un motif. L’éditeur de 
page permet de le placer où on 
veut, le dupliquer, insérer des attri¬ 
buts, des textes et de sauvegarder 
l'ensemble tout en permettant le 
lancement du programme qui suit 
directement par la page graphique. 
Génial, non ? 

Si vous n'allez pas acheter tout de 
suite OUTIMATIC 1, ne venez pas 
pleurer ensuite lorsqu'il vous fera 
défaut ! 
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CES FICHIERS 
DONT TOUT LE 
MONDE PARLE 


D. VASILJEVIC 



ORGANISATION 
DES FICHIERS 
ET METHODES D'ACCES 

• Critères 

d'organisation des fichiers 

Les critères d'organisation des fich¬ 
iers dépendent directement des ca¬ 
ractéristiques de leur utilisation. 
Nous avons déjà mentionné une de 
ces caractéristiques qui est le mode 
d'accès. Mais beaucoup d’autres en¬ 
trent en ligne de compte. Par 
exemple, le temps de conservation 
d'un fichier, que nous appellerons la 
vie du fichier, n'est pas le même 
pour un programme qui sera con¬ 
servé éternellement que pour un fi¬ 
chier data préservant quelques vari¬ 
ables, le temps de l'exécution d’un 
programme. Il peut être nécessaire 
de conserver certaines variables 
pour toujours. C'est le cas de don¬ 
nées statistiques ou historiques par 
exemple. Nous parlerons dans ce 
cas de l’archivage des données. 

Un fichier n'est pas seulement con¬ 
servé pendant un certain temps, il 
est aussi utilisé, traité, modifié... 
pendant toute la durée de sa vie. 
Cette activité du fichier pendant 
un laps de temps donné a plusieurs 
aspects. Certains fichiers seront 
consultés rarement et certains autres 
très fréquemment. Il ne faut pas con¬ 
fondre le taux de consultation et 
la fréquence. Le taux est tout 
simplement le rapport entre le 
nombre d’articles consultés et le 
nombre total d'enregistrements. Ima¬ 
ginons deux fichiers, l'un d'archivage 
historique et l'autre de données de 
base pour un calcul scientifique. 


Pour le premier, les faits appartenant 
à certaines périodes ne seront jamais 
consultés, alors que le deuxième fi¬ 
chier sera obligatoirement consulté 
en sa totalité au début de chaque 
calcul. Le taux du premier fichier tend 
vers zéro. Il est dit faible. Le taux du 
deuxième est égal à 1. C'est le taux 
maximum. 

Une autre particularité du taux du 
premier fichier : il peut varier dans le 
temps. Un fichier historique est sur¬ 
tout consulté en fonction d'anni¬ 
versaires des évènements. Si un 
évènement comporte beaucoup de 
faits archivés, sa consultation aug¬ 
mentera le taux de consultation pour 
cette période. Ce taux n'est donc 
pas constant pour une même fré¬ 
quence. Le taux d'utilisation du 
deuxième fichier est par contre 
constant pour la même fréquence 
d'utilisation. La signification de fré¬ 
quence est évidente : c’est le 
nombre d’utilisations d’un fichier 
pour une période donnée. 

Un fichier n'est pas seulement enre¬ 
gistré puis consulté. Il est aussi pério¬ 
diquement modifié ou complété, 
piété. C'est le cas de tous les fichiers 
de gestion de stock. Le nombre 
d’articles varie constamment, certains 
sont périmés et disparaissent, 
d’autres viennent d'être créés. Dans 
ce cas, on peut introduire une 
nouvelle notion le taux de 
mouvement qui est le rapport du 
nombre d'articles écrits, modifiés ou 
supprimés sur le nombre total d'ar¬ 
ticles. Ce taux est très fort pour un 
fichier de stock. Il est faible pour un 
fichier historique. De plus, si l'on 
suppose que tous les faits archivés 
ne changent jamais, chaque nou¬ 
veau fait historique augmente le 


nombre total et le taux de mouve¬ 
ment sera toujours égal à 1. Pour un 
fichier de stock, le taux de mou¬ 
vement peut être très élevé. 

Ces trois taux n'ont pas un caractère 
purement statistique. Ils nous ser¬ 
vent pour décider du mode d'ac¬ 
cès aux fichiers lors de l'écriture de 
nos programmes d'application. Le 
taux de fréquence peut être déter¬ 
miné non seulement pour l'en¬ 
semble d'un fichier, mais aussi par 
tranche (ou par article). Le fait de 
connaître ces taux permet d'orga¬ 
niser correctement les fichiers et 
gagner ainsi en temps de traitement. 
Nous avons vu que les fichiers 
historiques augmentent de volume 
chaque fois que nous ajoutons un 
nouveau fait. Nous dirons que ce 
fichier n'est pas stable et que sa 
taille (à utiliser de préférence à 
volume qui signifie aussi le numéro 
du lecteur) est croissante. Le fichier 
de données scientifiques cité est 
stable. Le fichier du stock peut être 
plus ou moins stable. Ceci dépend 
du nombre d'articles supprimés et 
ajoutés. Dans le cas de l'équilibre, le 
fichier est stable. Si un stock n’est 
jamais approvisionné par de nou¬ 
veaux articles, le fichier sera de taille 
décroissante du fait de la sup¬ 
pression des articles arrivés à 
épuisement. Le taux de croissance 
peut donc être positif, nul ou négatif. 
La taille d'un fichier peut être expri¬ 
mée en nombre de caractères, 
octets ou bytes. Dans le cas des 
articles à taille fixe, la taille du 
fichier peut être exprimée par le 
produit du nombre d’articles par la 
longueur d'un article. La première 
unité de mesure est bien adaptée 
aux fichiers à accès séquentiel et 

la deuxième aux fichiers à accès 
direct. 

La connaissance de la taille d'un 
fichier permet de choisir le support, 
le nombre obligatoire de volumes 
(lecteurs) et d'estimer le temps de 
traitement. Il ne faut pas oublier que 
la taille théorique est toujours plus 
petite que la taille réelle. Pour sé¬ 
parer deux articles successifs, le 
système place un petit espace nom¬ 
mé GAP. Ainsi, plus les articles sont 
nombreux, plus la perte de place et 
de temps est grande. On peut mini¬ 
miser ces pertes en groupant plu¬ 
sieurs articles. Comme dans ce cas, 
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un transfert-enregistrement ne cor¬ 
respondra plus à un article, il faut 
créer une zone tampon dans la 
mémoire centrale. Cette zone est 
nommée buffer. Elle permet de 
continuer les traitements en conser¬ 
vant la taille logique des articles. Le 
nombre d'articles d'un enregistre¬ 
ment bloque sera appelé le taux 
de blocage. Si nous groupons 
cinq articles, ce taux sera égal à 5. 

Si un fichier est implanté sur une 
seule disquette (un lecteur), nous 
dirons que c'est un fichier mono¬ 
volume. Si sa taille est trop grande 
et nous oblige à utiliser plusieurs 
lecteurs, il s'agira d'un fichier multi¬ 
volumes. Le traitement d'un mono¬ 
volume est plus simple que celui du 
multicolonnes pour lequel l'organi¬ 
sation correcte du fichier est indis¬ 
pensable. Ces fichiers posent le pro¬ 
blème du passage correct entre 
volumes et notamment dans l'enchaî¬ 
nement des séquences d'enregis¬ 
trements logiques des différents seg¬ 
ments du fichier. Nos disquettes cou¬ 
rantes comportent souvent plusieurs 
fichiers. Ce sont des volumes multi¬ 
fichiers. 


Listing Ho 1 
tt*t*t*t***t 


100 HIMEHP7EFF : FflPERO : INK2 ' CL3 1 fl*=" M : K=0'ORGANISATION SEQUENTIELLE FUFE 
110 fl*»" NOM FICHIER 

120 F0RI = 1T0LEN'’R* > PnKE»7FFF-LENCR*)+I,RSCCMD*CAS, 1,1 >)-NEXTI 

ZOO FOR 1 = 1 TOI O F0RJ=1T0RND< U* 10 

300 POKEtt8O00+K, 1NTCRNDC 1 >*26 >+65 = K=l +1 

400 NEXT J•P0KEP3000+K,32 ! K=K+1 1 NEXTI■POKE#3O00+K-l,36 

403 PPINTRS+" début fichier)!"j 

40b fiDRE33E=«7FD0 

406 RDRE33E=RDRE5SE+1>IFFEEKC ADRESSE >»32THEHE*=""-0010403 
40 î 7 G0TQ406 

403 FORI=0TO18 ; BS=B*+CHRSC PEEKC R0PE33E+I )>NEXTI 
403 IF RS=BS THEN 415 
410 Bï="“ : G0T0406 
415 K=0-A=ADPE3SE+1? 

420 PRIN1CHPSC PEEKC fl+K > >; • IFPEEKC fl+K >»32THEH430 

425 1F PEEKCfi+K>=96THEN440 

430 K=K+1 1 G0T0420 

440 PRINT"!<f in fichier"’PRINT 

450 PR INT"Numéro”•"Nbr car","Début",“ARTICLES" 

460 PRINT"RRTICLE“»"Par ART"."ARTICLE"'FRINT 
47u K=0 J=0 R*=" ” 1 = 1 

460 RS=fl*+CHP*':PEEKC R+K > > > IFPEEKC R+K >=32THEN500 
490 K=K+1 J= J+l IFPEEKCH+K>=96THEN500 
495 GOTO430 

500 PRINTI,J,K-J,RS fl*=“"'J*0'K»K+1-1 = 1 + 1 -IFPEEKCR+K-l)<>96THEN430 

600 PRINT"-" 

800 PRINT"Totaux".K-10,K 

900 PRINT"Nombre","theor.",“reel C j compris trous)" 

1000 PF INT"-* 

1100 FPINT"Les caractères du nom et ses trous ne sont Pas comptes. La fin", 
1200 PRINT" du fichier est connue 9race a la marque fin-",CHSSC36>«" 
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• Différentes organisations 
et méthodes d'accès 

Nous avons déjà vu précédemment 
que les disques magnétiques per¬ 
mettent deux méthodes d'accès à 
l'information : séquentielle et directe. 
Il existe donc deux organisations de 
base correspondantes, mais les 
variantes sont très nombreuses. 
Dans ce chapitre, nous ferons con¬ 
naissance de tous les types que 
nous étudierons par la suite en 
détail. 

Vous savez déjà que l'accès 
séquentiel (sequencial access 
method) permet d'écrire, puis lire 
tous les articles successivement en 
partant du premier jusqu'à l'article 
souhaité. 

Dans le cas où l'organisation phy¬ 
sique correspond à l'organisation 
logique, nous dirons qu'il s'agit de 
l'organisation séquentielle pu¬ 
re. C’est le cas de la bande magné¬ 
tique de notre lecteur K7. La position 
des articles sur la bande correspond 
réellement à l'ordre de l'écriture et 
pour retrouver un article, il faut com¬ 
mencer par le début et lire tous les 


100 HIHEMH7EFF-PRPER0'INK2CL3 R*="“ K=0'ORGANISATION SEQUENTIELLLE CHAINEE 
110 A*=" NOM FICHIER 

114 FOR I=t»S0O0TO#80FF - POKEI, 85 - NEXT I 

115 FORI=#3O13TO*301F>POKEI.126'NEXTI 
11 7 FORI=«302ATO#8O35 > POKE1.126•NEXTI 

120 F0RI=1T0LENCR* >'P0KE*7FFF-LENCfi* )+I,R3CCMIDSCR*.1,1))'NEXTI 

200 FOR I=1TO10FORJ=1TOFNDC 1 )*10 

210 IFPEEKC#3001+KJ-35THEN300 

220 POKEtt8000+K, 35 ' RM30O1+K - K=K+2 

230 K=K+1 

235 IFPEEKC «3000+K X >35THEN230 
240 DOKEfl,N3O00+K 

300 POKE»6000+K, INTCRNDC 1 >*26 )+65 ' K=K+1 

400 NEXTJ'POKEK30Q0+K,32'K=K+1 -NEXTI POKE#3000+K-1,36 

403 FRINTRS+” début fichier)!"; 

405 ROFE3SE=*7FDO 

406 HDRES3E»flDRE3SE+l-IFPEEKC ADRESSE X32THENB*»"“ • GOTO403 

407 GOTO406 

403 FORI=0TO18■BS=B*+CHP*CPEEKCADRESSE*I> >'NEXTI 

409 IF fi*=6* THEN 415 

410 B*=”"=GOTO406 
415 K=0 1 R=RDRESSE+13 

420 PRINTCHRSCPEEKC R+K > >;-IFPEEKC R+K >=32THEN430 

425 IF PEEKCfl+K >=36THEN440 

426 IFPEEKCfi+K>«95THENPR1NTHEXSCPEEKC A+K+1 ) >;HEX*CFEEKCR+K+2 >) l 1 K=K+2 
430 K=K +1> GOTO420 

440 PRINT" !<.fm fichier” 

450 PRINT"Numero” , "Nbr car","Début ”,"ARTICLE3" 

460 PRINT“flRTlCLE",“Par RRT","ARTICLE" 

470 K=0*J=0 1 J1=0 : K1=0'R*="* 1 1 = 1 

430 flï=R*+CHRSCPEEKC fl+K > >•IFPEEKC R+K >»32THEN50O 

490 K«K+1'J«J+1 

432 IFPEEKC fi+K >»96THEN500 

434 IFPEEKC R+K >=95THENfl=DEEKCR+K+1)-K 1 K1=K1+3 
496 GOTO430 

500 PRINTI,J,K-J.fi* 1 fi*“ 1 J1 = Jl+J'J=0 1 K»K+1 • 1 = 1 + 1 
510 IFPEEKCfl+K-1>< >96RNDPEEKCfi+K X >95THEN480 
520 IFPEEKCfl+K>=95THEN494 

600 PRINT"-" 

600 PRINT"Tot«ux",Jl.Ki" Cy compris trous)" 

9O0 PRINT"Nonibre“, "theor. ",K1+K>" Cy compris liens)" 

1000 PRINT"-“ 

1100 PRINT"Les caractères du nom et ses trous ne sont Pas comptes. Le début" 
1200 FRINT" de l'arti- cle ne9li9e la zone occuPee,", 

1300 PRINT” ce 4ui donne le nombre reel d'octets occupes.“ 
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100 HITIEH#7EFF - PAFERQ 1 IMK2' CL3'0$='"'' K=0'ORGANISA 11UN SEÜUENT. PARTIT 1ONNEE 
105 FORI = 1T0#100■PORE# 7FD0+1,85■HEXTI 
110 HS*" MOU FICHIER "'DIMRC 10 ) 

120 F0RI=1T0LEN(RS >■P0KE#7FFF-LEHCR$ >+I, ASCCNIDÎCRS, I,1>)'NEXTI 
200 FOR I=1TO10«DOKE#3000+<I-1>*2,#8100+K 
210 FQRJ=1T0RNDC1 >*10 

300 PUKE#8100+K» IMT< RMD< 1 >#26>+65'K=K+l 

•100 HEXT J ■ P0KE#3100+K,32 ' K=K+1 ' NEXTI ' PÜKEft8100+K-l ,96 

403 PRIM1RS+" début fichier)!"; 

405 ROPE3SE=tt7FO0 

406 RDRESSE=RDRESSE+1'IFPEEKCADRESSE)=32THENB$=""'G0TO408 

407 GQTO406 

403 FOR I=0TQ12'BS=BS+CHRSCPEEK(RDRESSE+1 > > 'NEXTI 

409 1F RS=BS THEM 415 

410 ... 

415 K=0'1=1 1 RCI>=RDRESSE+13 

416 A=l'EEKC AC I ) > 

420 PRINTCHRSC PEEKCR+K >>;• IFPEEKCA+K )=32THEH430 

425 1F PEEKCR+K)=96THEH440 

426 K=K+1'G0T0420 

430 1=1+1'K=0'RCI>=RDRESSE+13+C1-1>*2'G0TÜ416 

440 F'RIMT" !<f ir> fichier" >PR1MT 

450 PRINT"Numero", "Hbr car", "Début"» "ARTICLES" 

460 PRIMT"ARTICLE"/"Par ART","ARTICLE"'PRIAT 

470 K=-l'J=0 1 J1=0 ! A$="" 1 1=1 

475 A=DEEK(H<1)>>J=J+1>K=K+1'J1=J1+J-1>J=0 

430 RS=AS+CHRS<PEEKCR+J>>'IFPEEKCA+J>=32THEN5O0 

485 IFPEEKC fl+J+1>=96THENJ=J+1'K=K+1'G0T0500 

430 K=K+1'J=J+1'G0TÜ480 

500 PR1NTI,J,K-J»RS 1 RS="">1 = 1 + 1■IFPEEKCR+JX>96THEH475 
510 Jl-Jl+J 

600 PR 1IH"-" 

600 PRlMT’’Totaux"< J1 <K+1 ) "Ca compris trous)" 

900 PRIAT"Nombre"»"theor."»K+21;"Ca compris table)" 

1000 PR IM r "-" 

1100 PRlMT"Table des PartitioriS'" 

1200 FOR1=0TÛ19STEP2 1 PR1MTHEXSCDEEKC #3000+1 >>; " ";'NEXTI'PR1NT 


articles qui le précèdent. 

Nous pourrons mentionner que cet¬ 
te organisation correspond aussi au 
système FIFO (flrst In, first out) - 
premier entré, premier sorti. C'est 
donc une organisation chrono¬ 
logique. 

Notre disquette, qui est un support 
adressable, permet l'organi¬ 
sation séquentielle chaînée. 
Cette lois, l'organisation physique ne 
correspond pas à l'organisation lo¬ 
gique. Les articles sont placés n'¬ 
importe où sur le disque, mais le 
système sait reconnaître le bon 
ordre. D'où un autre nom : l'orga¬ 
nisation séquentielle logique. 

Il existe un troisième type : l'orga¬ 
nisation séquentielle partition¬ 
née. Nous avons dans ce cas deux 
fichiers parallèles, l'un contenant les 
articles ou pages ou parties et 
l'autre contenant la table des par¬ 
ties. Cette organisation permet d'ac¬ 
céder à un article non seulement par 
la méthode séquentielle, mais aussi 
directement. Pour cela, il faut con¬ 
naître le numéro de page (ou de 
l'enregistrement). Son adresse phy¬ 
sique sera trouvée par le système 
dans la table au numéro corres- 
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pondant. La table, elle-même, est lue 
séquentiellement, mais cette lecture 


100 HlMEITttFEFF • PRPER0 1 IHK2 1 CLS'AS"""'ORGANISATION DIRECTE RELATIVE 
110 H$=" NOM FICHIER 

120 FORI*» 1TQLENC AS ) ■ P0KEB7FFF-LENC RS )+1 » RSCCIIIDSC RS, 1,1 > > ' NEXTI 

200 FOR 1=1TQ10 1 F0RJ=1TQRNDC1 )*10 

3@0 POKEB300O+C 1-1 >*10+J» INTCRNDC 1 )*26)+65 

400 HEXTJiF0RJ=JTO10■POKE#30O0+C1-1)*10+J » 32 1 HEXTJ <I 

403 PRINTRS+" début fichier)!"; 

405 RDRES3E=B7FD0 

40t» RDRESSE=ADRESSE+1 • IFPEEKCADRESSE )=32THEHBS=""'GÜT04Ü8 
407 GOT0406 

403 F UR1=0TO13 1 BI=S$+CHR$C FEEKCADRES5E+1)) 1 NEXT1 

409 1F AS=B$ THEN 416 

410 BS=""•GOT0406 

416 FOPI=1TO10 

417 R=ADRESSE+19+<1-1>*10 

420 FQRJ=1TO10'PRINTCHRSCPEEKC R+J)>; 

430 NEXTJ'NEXTI 

440 PRIMI"!<fin fichier"■PR1NT 

450 PRlNT“Numero","Nbr car"»"Début","ARTICLES" 

460 PR'lNr"RRTICLE“, "Per ART", "ARTICLE" 

465 K=0 1 J2=0'J1=0 1 RS="" 

470 V=PEEKC#263)' FORI=VT024 1 PRIAT'NEXT1 PRINT" 

471 F0RC=1T027'PRINTCHRSC8>;'NEXTC 1 INPUT"No de l'RRUCLE a llre";I 

472 IF 1=01HENF0RC=25T0YSTEP-1'PRINTCHRSC11>;'NEXTC'GOTO600 

473 1FI )10THEMFÜF;C=25T0Y3TEP-1 ' PRINTCHRSC 11 >; ' NEXTC 1 PR INT "END OF FILE";'GÜTO470 

474 F0RC=25T0YSTEP-1'PRINTCHRSC11);'NEXTC 

475 A=HDRESSE+19+<1-1>*10 

400 FURJ=1TO10'A$=fi$+CHR$< PEEKC R+J)>'IFC PEEKC R+J)X >32THENJ2-J2+1 
490 HEXTJ 

500 PR I NT I,J2,CI-1>*10,R$'RS=""•K=K+10'J1=J1+J2 1 J2=0'GOTÜ470 

*00 PR INT"-" 

800 PRIAT"Totaux",J1,K 

900 PRIMT"Nombre","theor."»"reel C v compris trous)" 

1000 PR 1 MT "-" . 

1100 FRIMV'Les seuls sont comptes les articles réellement lus. Il faut aj"; 
1200 PRIHT"outer trois octets' adresse début et lon9. artlc." 

1300 PKIHT" "; 


est très rapide car la table ne contient 
que les adresses physiques, donc 
enregistrements très courts et de 
même largeur, quelle que soit la 
longueur des articles. 

C'est le premier pas vers l'orga¬ 
nisation et méthodes d'accès directs 
que nous appellerons aussi organi¬ 
sation et méthodes d'accès sé¬ 
lectives. Cette sélection se fait à 
partir d’une clé (key) qui permet 
l'identification et la sélection d’un 
article unique dans un fichier. Une 
clé doit correspondre à un seul et 
unique article, par contre un article 
(une fiche) peut avoir plusieurs clés 
qui constitueront autant de critères 
de recherche. 

La plus simple des organisations 
directes est l'organisation rela¬ 
tive. Le système connaît l’adresse 
physique du début du fichier et l’a¬ 
dresse relative d'un article est 
calculée à partir de la clé. C'est un 
déplacement par rapport au début 
du fichier. Le système convertit 
l'adresse relative en adresse absolue 
et lit l'article qui s'y trouve. Les 
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adresses relatives peuvent être ex¬ 
primées en secteurs, en pages, en 
blocs, en octets, etc. L'idéal serait 
que le déplacement entre deux 
adresses relatives ne soit pas fixe. 
Ceci permettrait des articles de diffé¬ 
rentes longueurs. Hélàs, ce n'est pas 
le cas et l'organisation est plutôt celle 
du fichier relatif ou direct (di¬ 
rect file) comportant des articles de 
longueur fixe. Chaque article pos¬ 
sède une clé unique qui est tout 
bêtement son numéro d'ordre dans 
le fichier. L'adresse relative d'un a- 
rticle est dans ce cas obtenue sim¬ 
plement en multipiant son numéro 
d'ordre par la longueur d'article et ce 
résultat ajouté à l'adresse physique 
du début du fichier donne l’adresse 
physique de cet article. 

Un autre type permettant l'accès 
direct est l'organisation aléa¬ 
toire (random organisation). 
Les articles sont groupés en pa¬ 
quets (buckets) de taille fixe. 
Chaque article contient sa clé. A 
partir de la clé de l'article, le système 
calcule le numéro et donc l’adresse 
relative du paquet par une fonction 
de hachage (hash coding). Une 
fois l'adresse du début du paquet 
trouvée, l’article lui-même est re¬ 
trouvé grâce à la clé. Les articles au 
sein d'un paquet sont en principe 
classés par ordre d'arrivée. Un fichier 
organisé de cette manière est nom¬ 
mé fichier aléatoire (hashed 
file). Il comporte des articles de lon¬ 
gueur variable. Grâce au Hash code, 
les articles sont distribués unifor¬ 
mément à l’intérieur d'un paquet. Les 
problèmes liés à cette organisation 
sont nombreux et la perte de place 
est importante allant de 30 à 40 %. 

Pour éviter les problèmes de débor¬ 
dement d’un paquet sur l’autre, la 
solution est recherchée dans le 
hachage virtuel ou dynamique 
qui nécessite beaucoup de place. 
D'autres solutions peuvent être soit 
l'adressage ouvert qui place l'article 
dans le premier paquet suivant qui 
est libre, soit le chaînage qui, en plus 
du paquet primaire, réserve un deu¬ 
xième paquet dit "de débordement". 
Malheureusement, dans le cas de 
l'adressage ouvert, les déborde¬ 
ments risquent de s'enchainer et 
dans le cas de chaînage, la gestion 
est très compliquée d'où nette 
baisse de performance. On peut 
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100 HIMEM#7EFF'PRPER0 1 INK2'CLS 1 fi$=""'ORGRNISRTIOH DIRECTE ALEATOIRE HASH-CODE 

105 F0KI=1 fU#lO0'PÜKEI+#7FD0,00'NEXTI 

110 RS=" NOM FICHIER "'P-10'10 P PIQUETS 

120 F0RI=1 TOLENC RS > ' PÜKE87FFF-LENC RS )+I, ASCC MI DSC FIS, I, 1 >>'NEXT1 
200 FOR I = 1T030 ' B$= " " ' FORK* 1TORNDC 1 >*4 ■ BS=B$+CHR$C 1 HTC RNDC 1 >*26 >+65 > ' NEXTK 
210 L=LENCBS)■GO3UB2000'GOSUB2020'K=0•ADRESSE=#3000+C G-l>*12'F0RJ=1T012 
220 IFPEEKCRDRE3SE+JX >00 rHEHNEXTJ 

230 IFJ>9THENPRINT"DEBORDEMENT, RRT1CLE PERDU"'GOTO4O0 
240 F0RK-1TUL'POKERDRESSE+J+K-1,RSCC MIDSC BS,K,1> > 1 NEXTK 
300 F0RK=KT04•POKERDRESSE+J+K-1,32•NEXTK 
40O NEXTI'CLS 

403 PR1NTRS+" début fichier /!"i 
4U5 ADKESSE=«?FD0 

4Ü3 RDRE3SE=HDRE3SE+1'1FPEEKC RDRESSE >=32THENB$=.G0T0403 

407 G0TO406 

408 FOR1=0TO18■BS=BS+CHRSC PEEKCRDRESSE+I > > 'NEXTI 
403 1F RS=B$ THEN 416 

410 ..G0T0406 

416 FORI=1TO10 

417 R=RDRES3E+13+<1-1>*12 

420 F0RJ=1TQ3'F0RK=1T04>PRINTCHRSC PEEKCR+C J-l>*4+K >>J 

4 30 NEXTK, J, I 

440 PRINT"I<fin fichier” 

450 PRINT"Numer o"> "Nbr car", “Début", "PHQUET->" 

460 PRINT"PRQUET"."Par RRT","PRQUET”,"fl1->R2->R3->" 

465 K-0.J2»0'Jl*0'fl$=""'ri=0 

470 Y=PEEKC#2é8>' FORI»YT024>PRINT'NEXTI‘PRINT" ", 

471 FURC=11027 1 PRINTCHRSC 8 >/ 1 NEXTC 1 INPUT"Article CLE * lire"; BS>GOSUB2Q0O 

472 IFBS="0“THENPR1NTCHR$C11 >» " 

473 1FBS="Q"THENF0RC=25T0YSTEP-1'PRINTCHRSC11>,•NEXTC'GOTÜ60O 

474 1FG>10THENFORC=25TOYSTEP-1'PRINTCHRSC11>;'NEXTC'PRINT"END OF FILE",'GOTO470 
476 F0RC=25T0YSTEP-1'PRINTCHRSC11>J'NEXTC 

478 fl=RDRESSE+13+CG-l>*12'M=0 

480 ....F0RJ=1T04'IFPEEKCfl+J >=0THEN430 

482 IFPEEKCfl+J>=32THEN432 

485 RS=RS+CHR$CPEEKC fl+J >> ' J2=J2+1 

430 NEXTJ 

492 IFR$=BSTHEN500 

493 fl=R+4 ■ M=l1+4 ' IFM< 12THEN480 
495 PRINT"N0T FOUND")'GOTO470 

500 PR IN TG, J2, C G-1 >* 12, fl* ' RS=" " ' K=K+4 ■ .J 1 = J1+J2 ' J2=0 ■ GÛTO470 

600 FRINT"-" 

800 FR INT"Totaux",J1,K 

900 PRINT"Noi"bre", "theor. ", "reel Cs coi'iPris trous>" 

1000 PRIN1"-" 

1100 PRINT "Les seuls sorit comptes les articles réellement lus. Le débordement 

, 

1200 PRINT" n'est Pas résolu. L'occuPation des Paquets est aléatoire, flcc"; 
1300 PRlNT"es Paquets direct, accès articles séquentiel. La deuxiemecle i"i 
1310 PRINT"dentique ne Peut Pas etre luel"; 

1400 END 

2000 D=0 > FOR J= 1TOLENC BS > • FI=HSC< MI DSC BS, J, 1 > >-64 ' D=D+R ' NEXT J 
2010 E=D/P'F=E-INTCE>'G=1NTCF*P>+1 -RETURN 

2020 PR1NT"RRTICLE’ ",BS,'F0RD=LENCBS>T04'PRINT" NEXTD'PRINT" HflSH-CODE 1 ", 

2030 PRINTG'RETURN 
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100 H1HEMW7EFF'PAPERO'INK2'CLS'RS=.ORGANISATION INDEXEE. INDEX NON TRIE 

105 FORI=1TO»100’POKEI+»7FD0,00'NEXTI 

110 flS=" NOM FICHIER " 'fl=H8100'DOKEH8000• fl'P=10'10 PAQUETS 

120 FOR1=1TOLENCRS)■P0KE47FFF-LENC RS >+I,HSCC MlDSC RS,1,1> > 1 NEXTI 
200 FUR 1=1 TU 10’F0RK= 1 TORNDC 1 >*4 ■ POKEH+K-1, IIITC RNDC 1 >*26>+65 
210 PUKEH8000+C 1-1 >*6+K+l, PEEKC fl+K-1 >'NEXTK'P0KER+IC-1,32 
220 POKE88000+C1-1>*6+K+1,32'R=R+K 

230 FuRJ=2T03•FORK=1TORNDC1>*4•POKER+K-1,1NTC RNDC1>*26 >+65'NEXTK 
240 POKER+K-1,32'R=R+K'NEXTJ•DOKE«8Ü00+1*6,fl'NEXTI'PUKEfl,96 
400 CLS 

403 PRINTPIS+" début fichier>i", 

405 RDRE3SE=«7FD0 

406 RDRE3SE=HDRESSE+1'IFPEEKCRDRESSE>=32THENBS=""'GOTO408 

407 GUT0406 

408 FORI=0TO18'B$=BS+CHRSC PEEKC ADRESSE*1> > 1 NEXTI 

409 1F R$=BS THEN 416 

410 BS=""'G0T0406 
416 K=0'R=»3100 

420 I=PEEK' R+K>'PRINTCHRSC 1 >, • IFI=96THEN44Û 

430 K=K+1'GOT0420 

440 PRINT"l<fin fichier" 

450 PRINT"Numéro","Nbr car","Début","PAQUET->" 

46U F'RINT"PflQUET", "Par PAQ”, "PAQUET", "Al->R2->fl3->" 
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4t-5 K=0 ' J2=0 ' J1 =0 ' RS=” " ' 11=0 

4/0 Y=FEEK< #268 > ' FÜRI=YT024'FR1HT -NEXTI 'PRIHT" "> 

471 F0RC=1TQ2? 1 PRINTCHRS 1 3 >; - NEXTC' INPUT"Article CLE a lire" ; BS ■ GÛSU62OÛ0 

472 IFBS="0"THEIIPRINTCHRS' U > ; " 

473 IFB$="0"THËNFÛRC=25TQY3TEP-1 - PRIMTCHF'K 11 ); 'NEXTC 1 GQTO600 

4/4 1FA=0THENFQRC=25TOYSTEP-1-PRINTCHRSC11 ); 1 NEXTC'PRINT"CLE ABSENTE";-GÛT047Ô 

4/6 F0RC=25T0YSTEP-1'PRlNTCHRSCll>;-NEXTC 

4/6 A$=""-J2=0-J=0'M=0 

480 IFPEEKi A+J >=96THEH490 

432 IFPEEK( B+J )=32THENH=M+ 1 

4o3 h*=A£+CHRS-: PEEK( R+J > >' J2“J2+1 

490 J=J+1-1FIK3THEN480 

492 GÜTO500 

493 R=A+4-11=11+4 < IFIK 12THEN430 

300 PPINTI, J2-3,R-#ol00.AS'A3-=.K=K+J2'Jl=Jl+J2-3-J2=0'GÜTO470 

600 PR INT"-" 

800 PRINT"ToUux",Jl,K 

900 PR INT "Nombre"/"theor. ", "reel < y compris trous)" 

1000 PRINT"-" 

11U0 FRINT"Les seuls sont comptes les articles réellement lus."; 

1200 PRINT" L'occuPetion des Pa- 4uets est chronologique. Rcc”; 

13U0 PRlNT"es PaTuetsdirect/ accès articles séquentiel. La deuxieme cle i"; 
1310 PRINT"denti4ue ne Peut Pas etre luel"J 
140O END 

2000 1=1 AS=""L=1 

2003 IFPEEKC #8000+-: 1-1 )*6+L+l )=32THEN202Q 

2010 fiî=H$+CHR$( PEEK( K30O0+C 1-1 )*6+L+l ))- L=L+1 -G0TU20Ü5 

2020 1FAS< >BSTHEN1 = 1 + 1'AS="" 

2030 1FI = 11THENA=0-RETURN 
2040 1FHS=""THENL=1-GÙTO2003 
2050 H=DEEK<tt8000+U-l >*6)-RETURN 
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aussi utiliser le rehachage, c'est-à- 
dire une nouvelle fonction de ha- 
chage propre au paquet de débor¬ 
dement. 

Nous conclurons que ce type d'orga¬ 
nisation peut être très simple, et pour 
la réalisation et pour l'utilisation, et 
dans le cas où il n'y a pas de débor¬ 
dement assez performant. Mais 
quelle perte de place ! 

L'organisation aléatoire est de plus 
en plus abandonnée au profit des 
organisations indexées. L'index 
peut être soit une ou plusieurs 
tables, soit un fichier contenant les 
adresses relatives des articles as¬ 
sociées aux clés des articles. Cette 
table index peut être placée au 
début du fichier, dans quel cas il faut 
prévoir pas mal de place. Si elle est à 
la fin, il faut la recopier plus loin avant 
chaque nouvelle inscription d'un 
article. L'accès à un article indexé pas¬ 
se donc par la recherche sur clé dans 
la table de l'adresse relative de 


100 HlHEim/EFF’FAPER0'INK2'CLS'R®=“"'ORGANISAT ION INDEXEE/ INDEX TRIE 

103 F URI = 1TO t» 100 ’ POKEI +# 7FD0 / 00 - NEXTI 

110 A*=" NOM FICHIER "-A=#S100-P=10'10 PAQUETS 

115 DIHINDEX* 10),ADRESSE<10) 

120 FQPI=1T0LEIKA!S)’P0KE#/FFF-LEN< AS )+l, ASC( MIDSC Aï, I, 1 >)-NEXTI 

200 FUPI = 1TO10-F0RK=1TORNDC1 )*4-PQKER+K-1/INT< RNDCI)*26)+65-NEXTK-POKEA+K-1/32 

210 BS= " " 1 FOKL=I TOK - BS=Bï+CHR$<. REEKC A+L-I ) ) - NEXTL • GÜSUB2U00 

220 A=rt+K 

230 FORJ=2T03-F0RK=1TÜRND(1)*4-POKEA+K-1,INTCRNDC1)*26)+65-NEXTK 

240 POKER+K-1,32 -R=R+K-NEXT J -NEXTI-FOKEA/96 

4O0 CLS■GUSUB204O-CLS 

403 FR 1 NTAS+" ctebut fichier)!"; 

405 ADRESSE=#7FD0 

406 ADRESSE=ADRESSE+1 -IFREEKC ADRESSE )=32THENB$=""-G0TÜ408 

407 GOTÜ406 

408 FURI=0TU1B -B$=Bî+CHRSC PEEK<ADRESSE*I ) ) -NEXTI 

409 1F AS=ES THEN 416 

410 6S=" “-G0T04O6 
416 K=0-A=#3100 

420 i=peeiC';a+k)-frintchr!e< l ); • ifi=96Then440 

430 K=K+1 1 G0TO420 

440 PRINT” Kfin fichier" 

450 PRINT"Numero","Nbr car","Début"/"PAQUET->" 

460 PRINT"INDEX "/"Par PRQ","PAQUET","Al->A2->A3->" 

465 K=0-J2=0-Jl=0'Aî=""'M=0 

4/0 Y=PEEK<#268 > 1 F0RI=YT024-PRIHT-NEXTI-PRINT" "; 

471 F0RC=1T027-PRINTCHRîC 8 ) 1 1 NEXTC 1 lNPUT"Article CLE i lire";BS-GOSUB2100 

472 IFBS="0"THENPRINTCHRî(11);" 

473 1FBS="Q"THENFORC=25T0YSTEP-1 ' PRIHTCHRSC 11 >; - NEXTC ! GOT0600 

474 1FA=0THENFORC=25T0YSTEP-1'PRINTCHRSC11);-NEXTC'PKIN1"CLE ABSENTE";-GÜTÜ470 
476 F0RC=25T0YSTEP-1-PRINTCHRîC11);-NEXTC 

478 A*=""-J2=0-J=0-(l=0 

480 1FREEKCA+J )=96THEN490 

482 IFPEEKC A+J >=32THENI1=I1+1 

485 R$=A$+CHRSC PEEK< A+J ) ) - J2=J2+1 

490 J=J+1 ! IFIK3THEN480 

492 GUTO500 

433 A=R+4-N=M+4'IFIK 12THEN480 

500 PR 1 N TI, J2-3 / A-#8100, AS - AS=" " - K=K+J2 - Jl=Jl+J2-3-J2=0'GÜTÜ470 

600 PRINT"-" 

800 FRINr-Totaux",J1,K 

900 PRINT"Nombre","theor.","reel (a compris trous)" 

10O0 PRINT"-" 

1100 PRINT"Les seuls sont comptes les articles reellemerit lus."; 

12 O 0 PRINT" L'occuPation des Pa- quets est chronologique. Acc"; 

1300 PRINT-es Paluetsdlrect/ accès articles séquentiel. La deuxieme cle i"; 

1310 PRlNT"denti4ue ne Peut Pas etre lue!"; 

1400 END 

2000 1F1 = 1THENINDEXÎC I>=BS - RDRESSECI )=A-RETURN 
2010 F0RL=1TOI-1 1 CS=INDEX$<L)-IFCS<BSTHENNEXTL 

2020 FURM= IT0L+1STEP-1 - INDEX®', Il )=1NDEX$( 11-1 ) - RDRESSEC M )=ADRES3E< M-l > • NEXTM 
2030 11IDEXS-. L >=BS - Al-RESSE< L >=A - RETURN 
2040 PRINT"INDEX TRIE"-PRINT 


l'article, ou d'un paquet d'articles. 
Connaissant l'adresse absolue du dé¬ 
but du fichier, le système convertit 
l'adresse relative de l'article en adres¬ 
se absolue et lit l'article. S'il s'agit 
d'un paquet d'articles, la recherche 
se poursuit selon le principe de 
l'organisation aléatoire déjà vue. 

La densité de l'index (index dey 
selectivity) peut être plus ou 
moins grande. Elle est comprise 
entre 0 et 1 et s'exprime par le quo¬ 
tient du nombre de clés dans l'index 
par le nombre du fichier. 

L'index peut être organisé de plu¬ 
sieurs manières en tenant compte 
de sa densité. Il peut être trié ou non 
trié. Dans le cas d’un index très 
dense (une clé par article), l'index ne 
tiendrait pas en mémoire centrale. 
C'est pour cela que, dans la plupart 
des cas, l'index dense n’est pas trié 
et les articles du fichier non plus. 
Dans le cas de l'index non dense, 
l'index est trié. Trois cas sont alors 
possibles : 

-fichiertrié ; 

-fichier divisé en paquets de taille 
fixe ; 

- index par groupe de plusieurs 
paquets. 

Pour les deux derniers cas, la clé 
contenue dans l'index est la plus 
grande clé du paquet. 

Un autre type d'index est l'index 
hiérarchisé (multilevel index). 
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20WÎ Ft<Pl»nOJ0>PPI»ITIHDEX*( I )• HEX$< ADRESSE ( I )> HEXTÏ 
2U-S0 PK IUT 1 F'RlHT"nPFUlEZ SUR RETURH">GETRS>RETURH 
21UO FOR I s 1TO10 1 1F1 UDEi;s f 1 >=fc’S+" "THEHR=RDRES3E< 1 ) 'RETURH 
21 OS IF11 IPt: %' I '=C*+ " ”THEI 1R=RDRESSE< I ) ' RETURH 
211U NEXT1> R=0 1 RETURN 


Il s'agit d'un index qui est lui-même 
considéré comme un fichier. Il est 
donc divisé en paquets et comporte 
un index par paquet. Le premier 
index est l'index maître (master). Il 
donne l'accès aux index secondaires 
et ceux-ci donnent l'accès au fichier. 
Ce type d'index a donc une structure 
d'arbre, l’index maître étant la racine 
(root), les index secondaires sont 
des nœuds (nodals) - on les 
appelle aussi des jumeaux ou fils - et 
les paquets sont des feuilles termi¬ 
nales (ou encore petits-fils). 

Les arbres peuvent être équilibrés 
ou non. Un arbre équilibré a tous les 
nœuds terminaux au même niveau. 
L’ordre de l'arbre est déterminé par 
le nombre de niveaux, par exemple 
un arbre possédant la racine, un 
niveau de fils et des petits-fils est dit 
de l'ordre 3. Chaque niveau de 
nœuds ajouté augmente l'ordre de 1. 
Un arbre équilibré se nomme arbre 
balancé (balanced tree). Cha¬ 
que nœud contient "N” clés. Si 
l'arbre est de l'ordre "n" alors INT 
(n/2) - 1 <, N <, n - 1. Seule la racine 
contient N clés tel que 1 s N s n - 1. 
Si un nœud n'est pas pendant 
(feuille terminale) il possède N + 1 
fils. Le fils y possède des clés 
comprises dans l'intervalle (i - 1; i) 
des clés du père. Le clés sont triées 
de gauche à droite en ordre crois¬ 
sant, donc la branche de gauche 
contient les clés plus petites que 
celles de droite. La lecture suit tou¬ 
jours un chemin passant par les plus 
faibles valeurs, jusqu'à la feuille la 
plus à gauche, puis les feuilles 
attachées au même nœud de 
gauche à droite, puis le nœud 
suivant et sa feuille la plus à gauche, 
etc. 

Si la clé n'est pas trouvée dans un 
nœud pendant, elle n'existe pas. 
L’insertion d'une clé dans un arbre 
balancé est très simple : on re¬ 
cherche la feuille terminale qui 
devrait contenir cette clé et on insère 
la clé à la bonne place. Si après cette 
insertion le nombre de clés dépasse 
la valeur indiquée (n-1), il faut 
procéder à une migration des clés. 
La clé du milieu de la feuille terminale 
est remontée dans le nœud supé¬ 
rieur. Si nécessaire, on répète la 
même procédure d'insertion dans le 
nœud supérieur et ainsi de suite, 
selon un algorythme récursif, jus¬ 
qu’au respect final de la condition N < 


n - 1 pour tous les nœuds. Dans le 
cas de suppression d'une clé, c'est la 
borne inférieure (n/2) - 1 < N qu’il 
faut satisfaire en regroupant les 
nœuds. 

Un arbre balancé permet deux 
méthodes d’accès différents : 

- Séquentielle indexée (indexed 
sequencial access method) ; 

- Séquentielle indexée régulière 
(Virtual storage access method). 

Pour la première méthode, seules 
les clés sont rangées dans un arbre, 
alors que les articles occupent un 
fichier séquentiel. Pour la deuxième 
méthode, les clés et les articles sont 
stockés dans les arbres balancés. La 
description détaillée de ces deux or¬ 
ganisations dépasse largement le 
cadre de cet article. 

Quel que soit le type de l'organi¬ 
sation et la méthode d’accès, le 
système doit toujours transformer 
l'adresse relative d'un article en 
adresse absolue sur disque. Il doit 
donc connaître l'adresse du début 
d'un fichier associée à son nom. 
D'autre part, il doit connaître le type 
de fichier. On ne lit pas de la même 
manière un fichier basic et un fichier 
data, surtout que ce dernier peut 
être à accès soit séquentiel, soit 
direct. Le système est donc néces¬ 
sairement autodocumenté. Pour 
cela, il utilise le catalogue (direc- 
tory). C'est un fichier à part, dans 
lequel sont rangés les rensei¬ 
gnements mentionnés, associés aux 
noms des fichiers. On peut aussi 
connaître le nombre de secteurs 
occupés, le nombre de ceux restant 
libres, les conditions de verrouillage 
de récriture, l'autostart, etc. Le 
sédoric permet de différencier la 
disquette maître (master) de la 
disquette esclave (slave), la deuxi¬ 
ème étant dépourvue du sed. Nous 
pouvons accéder à ces renseigne¬ 
ments par les commandes !CAT pour 
FTDOS et DIR pour sédoric. Les 
routines un peu plus complexes 
nous permettent d'accéder à une 
véritable carte d’occupation (bit 
map) de la disquette qui permet de 
trouver immédiatement le secteur le 
plus proche ou un autre inoccupé. 


Vous avez à présent une vue assez 
large mais théorique de l’ensemble. 
Seuls les exemples peuvent éclairer 
les points restés obscurs et c'est ce 
que nous tenterons de faire. 

• Programmes 
de mise en évidence 

Les petits programmes en basic, que 
nous vous présentons ici, ne sont en 
aucun cas des utilitaires d'organisa¬ 
tion des fichiers. Ils servent à faire la 
démonstration de tout ce qui a été 
exposé jusqu'à présent. Etant faits 
pour Atmos, ils doivent être adaptés 
pour Oric 1, notamment pour les re¬ 
marques, traitement des variables, 
chaînes de caractères et l'affichage. 
Tous les articles traités sont consti¬ 
tués uniquement par les lettres de 
l'alphabet, les chiffres étant réservés 
au comptage et aux pointeurs. Cer¬ 
tains programmes commencent par 
nettoyer la zone de mémoire qui 
nous servira de support et il faut un 
peu de patience. Les lignes de base 
restent autant que possible iden¬ 
tiques d'un programme à l’autre, ce 
qui facilite la saisie. 

-Le listing n° 1 correspond à 
l'organisation séquentielle pure 
Le fichier est limité à dix articles (I), 
tous de longueur (J) et contenu 
variables (RND). La seule adresse 
absolue est celle du début du fichier 
(8000). Le nom du fichier servant à 
l'identification est stocké avant et les 
articles après cette adresse. L'adres¬ 
se relative de chaque article (K), 
ajoutée à celle du début du fichier, 
donne l'adresse absolue de chaque 
article. Connaissant la longueur du 
nom du fichier (qui est fixe), l'adresse 
de recherche du nom du fichier 
(adresse) est 7FD0. Après la 
comparaison du nom du fichier 
recherché et celui stocké (A$ = B$?) 
l'adresse de recherche est celle du 
début des articles. Les articles sont 
lus les uns derrière les autres. Les 
GAPS sont figurés par les espaces 
(32) qui permettent l’identification de 
la fin de chaque article. Dans le cas 
d'un fichier séquentiel, c'est en 
même temps la fin du fichier logique 
et physique (EOR et EOF). Pour 
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accéder à l'article n° 4, il faut donc lire 
les numéros 1 à 3, ou tout au moins 
identifier trois fins d'articles (instruc¬ 
tion JUMP). Si on veut continuer 
l'écriture au-delà du dernier article 
enregistré, on recherche la marque 
EOR (96) et on la transforme en GAP 
(32) (instruction APPEND et IAPND). 
Ainsi, on peut ajouter le nouvel 
article à la bonne place. Quand un 
fichier est créé ou ouvert, l'adresse 
absolue du début du fichier est 
identifiée une fois pour toutes. Ceci 
permet à l'instruction REWIND de 
placer le pointeur instantanément au 
début du fichier. Maintenant, vous 
connaissez le processus. Nous vous 
proposons de vous exercer en ajou¬ 
tant les lignes qui vont simuler 
REWIND JUMP et APPEND (IAPND). 
Le listing n° 2 correspond à l’organi¬ 
sation séquentielle chaînée. Tout ce 
qui est dit pour le programme précé¬ 
dent reste valable à une exception 
près : certaines zones de notre 
support ne sont pas disponibles, 
étant déjà occupées par un autre 
fichier. (8015 à 801F et 802A à 
8035). Dès que ce manque de dis¬ 
ponibilité est constaté, le programme 
cherche la zone disponible et conti¬ 
nue selon le principe déjà vu. Au pas¬ 
sage, une marque de saut (95) est 
déposée, qui servira lors de la 
lecture. Elle est suivie par l’adresse 
de la suite du fichier. A la lecture, dès 
que la marque du saut est ren¬ 
contrée, on identifie l'adresse de la 
suite du fichier et on continue la lec¬ 
ture à partir de celle-ci. Complétez ce 
programme par REWIND, JUMP et 
APPEND. 

Le listing n° 3 correspond à 
l’organisation séquentielle partition- 
née. Les adresses des partitions 
sont contenues dans la table oc¬ 
cupant la première partie du fichier 
de 8000 à 8000 + 2 x n, n étant le 
nombre de partitions. Le fichier 
contenant les données commence à 
l'adresse 8100, adresse de la premi¬ 
ère partition. Le programme, tel qu'il 
vous est donné, place un seul article 
dans chaque partition. Dans la réalité, 
chaque partition comporte autant 
d'articles que sa capacité le permet. 

Modifiez le programme en ajoutant 
une boucle supplémentaire pour 
placer plusieurs articles dans chaque 
partition. Pour l'écriture et la lecture 


au sein d'une partition, utilisez la 
méthode séquentielle prévue au 
listing n° 1. A la lecture, la méthode 
utilisée est séquentielle. Une mé¬ 
thode d'accès semi-directe est pos¬ 
sible. L'accès dans chaque partition 
peut être direct, l'adresse d'une 
partition est obtenue par la lecture 
directe de la table : pour partition i, il 
suffit de lire 8000 + 2 x i - 2. L'adres¬ 
se obtenue est aussi l'adresse dii 
premier article de la partition. Les 
autres articles sont lus séquentiel¬ 
lement. Modifiez le programme en 
conséquence. 

Le listing n° 4 correspond à l’orga¬ 
nisation directe relative. La longueur 
des enregistrements est constante 
(10). Ainsi, en ajoutant à l'adresse 
absolue du début du fichier (8000) le 
déplacement en fonction du numéro 
de l’article ((I - 1) x 10) on obtient 
l'adresse absolue de l'article voulu. 

Le listing n° 5 correspond à l’orga¬ 
nisation directe aléatoire. Les articles 
sont distribués par paquets en fonc¬ 
tion du modulo clé/nombre de 
paquets. Le nombre de paquets est 
pris égal à 10 et la longueur des 
enregistrements est fixe : 4 octets, 
quelle que soit la longueur de 
l’article. Au sein d'un paquet, les 
articles sont placés dans l'ordre d'arri¬ 
vée. Ainsi, en cas de débordement, 
ce sont les derniers qui seront 
perdus. Complétez le programme en 
ajoutant les paquets des débor¬ 
dements. La lecture et l'écriture des 
articles, dans un paquet, est séquen¬ 
tielle. Ceci permettrait les enre¬ 
gistrements de longueurs ajustées à 
celles des articles. Modifiez le pro¬ 
gramme en conséquence. Si deux 
articles ont la même clé, seul le 
premier peut être trouvé. Ajoutez le 
test pour la clé déjà existante dans 
un paquet. 

Le listing n° 6 correspond à l'organi¬ 
sation indexée. Faites le rappro¬ 
chement avec l'organisation partition- 
née. Cette fois-ci, la table "index" 
contient en plus des adresses des 
paquets, la clé du premier article du 
paquet. Si un paquet représente 
une fiche, les articles peuvent être 
champs et la clé le champ choisi. La 
clé peut être aussi le numéro d’ordre 
de l'article. Modifiez le programme 
pour que l'index contienne la clé la 
plus forte des trois articles contenus 
dans un paquet. La densité de l'in¬ 


dex dans le cas traité est de 1/3 = 
0.333. L'index n'est pas trié. Les 
adresses sont absolues, mais elles 
pourraient être relatives. 

Le listing n° 7 correspond à une 
organisation indexée avec l'index 
non hiérarchisé, mais trié dans l'ordre 
croissant, ce qui permet une re¬ 
cherche plus rapide d'une clé, ainsi 
que son insertion. Le fichier lui- 
même n'est pas trié. Modifiez le 
programme en ajoutant deux autres 
index afin que l'on puisse utiliser 
n'importe quel article comme clé. 
L'index étant trié, il est possible de 
lire l'ensemble du fichier soit en ordre 
croissant, soit en ordre décroissant 
De plus, l'insertion ou la recherche 
d'un article peuvent être accélérées 
en utilisant la méthode de tri dicho¬ 
tomique. Alors, à vos claviers ! 

Et quand vous avez tout terminé, 
prenez la clé des champs jusqu'au 
prochain chapitre... 


TOUT 


AUGMENTE ! 



LE PRIX DES 
DISQUETTES DE 
THEORIC BAISSE ! 


116 F pour les abonnés 
146 F pour les non- 
abonnés ! 

Bon de commande page 50 
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Qu'est-ce qu’une fenêtre ? 

C'est une partie de l'écran spéciale. 
On l'ouvre, et on la ferme. Lors¬ 
qu’on l'ouvre, le programme mémo¬ 
rise alors toutes les positions de 
l'écran qui vont être affectées, puis 
les efface. Le programmeur peut 
alors écrire et dessiner dans cette 
partie de l'écran. Lorsqu'on la 
ferme, le programme réaffiche les 
caractères présents avant l'ouver¬ 
ture. En pratique, c'est un rec¬ 
tangle, qui vient se superposer à 


l'écran (ouverture) jusqu'à ce qu'on 
l'enlève (fermeture). 

Ceci est très pratique pour afficher 
des pages d'aides, ou des mes¬ 
sages d'erreur, ou encore la sempi¬ 
ternelle phrase "Pressez une 
touche, SVP". Les limites d'une 
fenêtre sont celles de votre imagi¬ 
nation. 

- La routine WINDOW 

De par le fait même qu’elle fait appel 


à plusieurs routines de ROM, elle 
n'est pas standard pour ORIC 1 et 
ATMOS. Il y en a donc 2 versions 
différant sur quelques endroits (no- 
(notamment lePLOTde l'ORIC 1 et 
de l'ATMOS sont décalés de 1. Il en 
va de même pourwindowORIC 1). 

Tapez donc la bonne version ! 

- Utilisation de la routine WINDOW 
Chargez la d'abord en mémoire 
grâce au listing basic (celui fait de 
DATAS). 

► 


* 


$ 


& 


DÉCOUVREZ LA BÊTE 
A COMMUNIQUER U 


LA PROMOTION DU MOIS 

Faites parler votre ORIC pour220,00 F TTC* 


93.62.44.88 + 

LE GUIDE DE NICE 
STRATMO’S CLUB 



VENTE PAR CORRESPONDANCE. 

JJ JJ T 22, Av. du Maréchal Foch 
/UIA - 06000 - NICE Tél. 93.92.21 85 


avec le synthétiseur vocal TECHNIMUSIQUE. 

Interface TVS, transformez votre ORIC 1 en ATMOS 
pour 139,00 F TTC* 

• Offre valable jusqu’à épuisement des stocks. 

ARAL . 

• AMSTRAD 

• COMMODORE 

• Compatible IBM 

• EXEL VISION 

• et plus de 2 800 logiciels 
Toutes les marques en stock 


Reprise de votre ORIC pour tout 
achat d'un télestrat. 
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illustrations : Jean-Luc AULNETTE 


OUVRIR UNE FENETRE 



Saisie Paramètres 


Vérifie la virgule 
Saisie du nombre 



Teste si X2> XI 


sJY2>Y1 
Inversion si 
nécessaire 


I 

Calcul hauteur de la fenêtre 
largeur 



• Calcul adresse écran du 
coin supérieur gauche 


I • Mémorisation du 

dessous de la fenêtre 

! • Mémorisation des 

paramètres de la fenêtre , 

I 

• Calcul du centre de la fenêtre 

CX = (X2 - XI) / 2 
CY = (Y2 - Y1) / 2 

• Mémorisation du reste de la division 

I ~ 

I • Calcul adresse écran du 
centre de la fenêtre 

I 

Affiche 1 espace. 2 espaces 
côte-à-côte. l'un sur l'autre 
en 1 carré de 4 espaces 
suivant le reste de la 
division par 2 (cf plus haut) 

I | 

Ouverture de fenêtres de 
taille croissante, jusqu'à 
la taille désirée 

-=. 

ŒD 



Pour ouvrir une fenêtre : 
en début de programme, faire 
OUVRE #6000 

Puis CALL OUVRE, XI, Y1, X2, Y2. 
ouvrira une fenêtre ayant pour 
coins 

(XI ,X1 ) (X2.X1 ) (X2.X2) et (XI ,Y2). 
Pour la fermer 

ORIC1 faire FERME = #6250 
ATMOS faire FERME = #6238 
Puis Call FERME 

Mais avant, il faut déclarer la zone 
de mémorisation de fenêtres par 
DOKE #BFEB, #6400, et mettre à 
zéro le nombre de fenêtres ou¬ 
vertes par POKE#BFED, 0 (cf pro¬ 
gramme de deux). 

Si vous désirez modifier le contour 
des fenêtres. 

Taper: 

ORIC1 : POKE #61F6, A 
ATMOS : POKE #61 DE, A 
A étant le code ASCII du caractère 
pour le contour. 

Si vous désirez modifier la vitesse 
d'ouverture des fenêtres, taper : 
ORIC 1 POKE #6245, VITESSE 
ATMOS POKE #622D, VITESSE 
avec 1<VITESSE$255 
Il est possible d'ouvrir simulta¬ 
nément 20 fenêtres d'un écran 
complet (1, 0, 39, 26) ou plus si les 
tailles sont plus petites. Si on 
désire utiliser le mode HIRES, ce 
nombre est ramené à 12. Si vous le 
dépassez, les caractères seront 
brouillés, et l'écran sera parasité. 
Un reset remettra tout en ordre. 

Bons programmes. 
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-Value D80D D8C8 

Evalue la valeur pointée par 
TXTPTR (E9 - EA) Si >0 et 
«255, la stocke dans X, 
autrement (flèche vers la droite) 
ILLEGAL QUANTITY 

- PLLEG D2A0 D336 

Affiche ILLEGAL QUANTITY 

-CHKCOM CFD9 D065 

Vérifie la présence d'une vir¬ 
gule à TXTPTR. Incremente 
TXTPTR 

- ERROR IN C4A6 C499 

Affiche ERROR 

IN... 

-STROUT CBED CCBO 

(utile pour créer vos messages 
d'erreur). Affiche la chaîne 
pointée par A (-) et Y (+), et 
terminé par M en un 0 


Explications techniques : 

Les fenêtres sont mémorisées à 
partir de l'adresse #6400 sous le 
format suivant : 

AD: 

stockage des caractères 
sous la fenêtre 
-AD 

- Adresse écran du coin 
supérieur gauche de la fenêtre 

- Hauteur et largeur de la 

fenêtre 

• Les divers labels utilisés ont 
comme fonction 

Flag : indique si la retenue de la 
division du calcul de CX est paire ou 
impaire. 

X1,X2,Y1,Y2 : Coordonnées des 

angles de la fenêtre 

CX.CY : Coordonnées du centre 

de la fenêtre, également utilisés 

comme paramètres de la routine 

CONVERT. 

XPLUS.YPLUS: Largeur et 
hauteur de la fenêtre 
Motif : Motif du contour de la 
fenêtre 

AD : Adresse où est mémorisée la 
dernière fenêtre 

COMPT : Nombre de fenêtres 
mémorisées. 


- Les routines utilisées 

ORIC1 ATMOS 
-SYNTERR CFE4 D070 
Affiche le message SYNTAX 
ERROR IN... Puis Ready 


-DISP 

Affiche Display Type 

MISMATCH 




























260 READ D$:D=VAL("#"+D$):POKE J,D 
270 S=S+D 
280 NEXT 

290 READ CS: IF CSOS THEN PR1NT"ERREU 
R LIGNE ";L+1000:END 
300 L-L+10:S=0 
310 NEXT 

320 PRINT" FENETRE ORICI IMPLANTE" 

330 END 


1 000 
1 010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1 120 
1 130 
1 140 
1150 
1 1 60 
1170 
1 180 
1 190 
1200 
1210 
J. 220 
1 230 
1240 
1250 
1260 
1270 
1 280 
1 290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1 370 
1380 
1390 
1400 
1410 
1 420 
1430 
1440 
1 450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


DATA 4C,3A,60,20,50,45,54,49,568 
DATA 54,20,43,55,52,49,45,55,577 
DATA 58,20,21,21,21,18,A9,A8,58G 
DATA 6D,E6,BF,85,00,A9,BB,69,1124 
DATA 00,85,01,AC,E7,BF,DO,01,937 
DAT A 60,18,A5,00,69,28,85,00,563 
DATA A5,01,69,00,85,01,88,DO, 749 
DATA FO,60,AD,CO,02,C9,02,FO,1146 
DATA 03, 4C, 72,DA,20,D9,CF,20,899 
DATA OD,D8,EO,O1,BO,03,4C,AO,869 
DATA D2,EO,27,BO,F9,8E,E2,BF,1457 
DATA 20,D9,CF,20,OD,DB,EO,00,941 
DATA 30,EC,EO,IB,BO,E8,8E,E4,1313 
DATA BF,20,D9,CF,20,OD,D8,EO,1132 
DATA 01,30,DB,EO,27,BO,D7,8E,1064 
DATA E3,BF,20,D9,CF,20,OD,D8,1135 
DATA EO,00,30,CA,EO,IB,BO,C6,1099 
DATA 8E,E5,BF,AD,E3,BF,CD,E2,1584. 
DATA BF,BO,OB,48,AD,E2,BF,8D,1181 
DATA E3,BF,68,8D,E2,BF,AD,E5,1482 
DATA BF,CD,E4,BF,BO,OB,48,AD,1247 
DATA E4,BF,8D,E5,BF,6B,BD,E4,1453 
DATA BF,EA,38,AD,E3,BF,ED,E2,1535 
DATA BF,8D,E8,BF,38,AD,E5,BF,1404 
DATA ED,E4,BF,8D,E9,BF,AD,E8,1626 
DATA BF,C9,02,BO,03,4C,AO,D2,1019 
DATA AD,E9,BF,C9,02,BO,03,4C,1055 
DATA AO,D2,EE,ED,BF,EE,E2,BF,1691 
DATA EE,E3,BF,AD,E2,BF,8D,E6,1617 
DATA BF, AD, E4,BF,8D,E7,BF,20,1378 
DATA 15,60,A5,01,48,A5,00,48,592 
DATA AD, EB, E<F, 85,02, AD, EC, BF, 1334 
DATA 85,03,AE,E9,BF,AC,E8,BF,1329 
DATA Bl,00,91,02,88,CO,FF,DO,1115 
DATA F7,18,A5,00,69,28,85,00,714 
DATA A5,01,69,00,85,01,1B,A5,594 
DATA 02, 6D, E8, BF,85,02,A5,03,837 
DATA 69,00,85,03,18,A5,02,69,537 
DATA 01,B5,02,A5,03,69,00,85,542 
DATA 03,CA,EO,FF,DO,C7,AD,EB,1499 
DATA BF,AO,00,91,02,AD,EC,BF,1098 
DATA C8,91,02,68,C8,91,02,68,902 
DATA C8,91,02,AD,E8,BF,C8,91,1288 
DATA 02,AD,E9,BF,C8,91,02,18,970 
DATA A5,02,69,06,8D,EB,BF,A5,1010 
DATA 03,69,00,8D,EC,BF,18,AD,873 
DATA E3, BF, 6D, E2,BF,8D,E6,BF,1506. 
DATA 4E,E6,BF,08,18,AD,E5,BF,1124 
DATA 6D,E4,BF,8D,E7,BF,4E,E7,1400 
DATA BF,08,20,15,60,AO,00,8C,648 
DATA E8,BF,8C,E9,BF,SC,E1,BF,1543 
DATA A9,20,91,00,28,90,OE,AO,704 
DATA 28,91,00,A2,FF,8E,El,BF,1160 
DATA A2,01,8E,E9, BF ,28,90,12,931 
DATA AO,01,91,00,A2,01,8E,E8,843 
DATA BF ,AE,El, BF ,FO,04,AO,29,1226 


1560 

DATA 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1 650 

DATA 

1660 

DATA 

1 670 

DATA 

1 680 

DATA 

1690 

DATA 

1 700 

DATA 

1710 

DATA 

1 720 

DATA 

1730 

DATA 

1 740 

DATA 

1750 

DATA 

1 760 

DA.TA 

1770 

DATA 

1 780 

DATA 

1790 

DATA 

1 800 

DATA 

1810 

DATA 

1820 

DATA 

1 830 

DATA 

1840 

DATA 

1850 

DATA 

1860 

DATA 

1870 

DATA 

1880 

DATA 

1 890 

DATA 

1900 

DATA 

1910 

DATA 

1 920 

DATA 

1 930 

DATA 

1940 

DATA 


91 

, Où 

,A9 

,02 

, 8D 

, E 1 

,BF 

,AD, 

1046 

E6 

,BF 

, CD 

,E2 

, bf 

, DO 

, 06 

, CE, 

1463 

El 

,BF 

, 18 

,90 

,09 

, CE 

,E6 

, bf , 

1 220 

EE 

, E8 

,BF 

,F.E 

,E8 

.BF 

, AD 

, E7, 

1726 

BF 

, CD 

,E4 

,BF 

, DO 

, 06 

, CE 

• El, 

1460 

BF 

, 18 

,90 

,09 

, CE 

,E7 

, BF 

,ee. 

1234 

E9 

,BF 

,EE 

,E9 

,BF 

,A9 

,2A 

, BD, 

1438 

EA 

,BF 

,20 

, 15 

, 60 

,AE 

,E9 

,BF, 

1 172 

AC 

, ES 

,BF 

, AD 

, EA 

, BF 

,91 

,00, 

1338 

88 

, 10 

,FB 

, IB 

, A5 

, 00 

, 69 

,28, 

737 

85 

, 00 

, A5 

,01 

,69 

, 00 

, 85 

,01, 

538 

AO 

, 00 

, AD 

,EA 

, BF 

,91 

, 00 

, AC, 

1075 

E8 

, BF 

,91 

, 00 

, CA 

, DO 

, E4 

, AC, 

1378 

E8 

, BF 

, AD 

,EA 

, BF 

,91 

, 00 

,88, 

1302 

10 

,FB 

, AD 

,E1 

,BF 

, DO 

,01 

,60, 

1 161 

AD 

,EA 

,.BF 

,C9 

,20 

,FÔ 

, 83 

,A9, 

1371 

20 

, 0D 

,EA 

, bf 

,A2 

, OD 

, AO 

,00, 

933 

88 

, DO 

, FD 

, CA 

, DO 

, F 8 

, FO 

, AA, 

1 e>65 

AD 

,ED 

, BF 

, DO 

,27 

,A9 

,5F 

, AO, 

1272 

62 

,20 

,ED 

, CB 

,4C 

, A6 

,C4 

, OD, 

1021 

OA 

, 50 

,41 

,53 

, 20 

,44 

, 45 

,20, 

4 39 

46 

,45 

,4E 

,45 

,54 

,52 

,45 

,20, 

553 

41 

,20 

,46 

,45 

,52 

,4D 

,45 

, 52, 

546 

2E 

, OD 

, OA 

, 00 

, CE 

,ED 

,BF 

, 38 , 

759 

AD 

,EB 

,BF 

,E9 

, 06 

, 85 

,02 

, ad , 

1 146 

EC 

,BF 

,E9 

, 00 

,85 

, 03 

, AO 

,00, 

956 

Bl 

,02 

, 8D 

, EB 

, BF 

, C8 

, B 1 

,02, 

1125 

8D 

, EC 

, bf 

,CB 

,B1 

,02 

, 85 

,00, 

1080 

C8 

,B1 

,02 

, 85 

,01 

, C8 

, Bl 

,02, 

892 

8D 

, EB 

,BF 

, C8 

, B1 

,02 

, BD 

,E9, 

1317 

BF 

, AD 

,EB 

, bf 

,85 

,02 

, AD 

i EC , 

1334 

BF 

,85 

, 03 

,AE 

,E9 

, bf 

, AC 

,E8, 

1329 

BF 

, B1 

,02 

,91 

, 00 

, 88 

, CO 

,FF, 

1098 

DO 

,F7 

,18 

, A5 

, 02 

, 6D 

,E8 

, BF , 

1178 

85 

,02 

, A5 

, 03 

,69 

, 00 

,85 

,03, 

544 

18 

, A5 

,02 

,69 

,01 

, 85 

,02 

,A5, 

597 

03 

,69 

, 00 

, 85 

,03 

, IB 

, A5 

O 

O 

433 

69 

,28 

, 85 

, 00 

, A5 

, 01 

,69 

,00, 

549 

85 

,01 

, CA 

,E0 

, FF 

, DO 

, E 7 

, 60 , 

1318 


O HIMEMttSFFF 
100 REM 
110 REM 

120 REM FENETRE /m 1 

130 REM A. 

140 REM PAR ERIC VIEL 

150 REM \ ^ | 

170 REM VERSION ! ATMUS ! \\ _ 

ISO REM ========= 

190 REM 

200 REMNE VOUS TROMPEZ PAS DE VERSION 
210 REM 
220 REM 

230 REM 

231 IF PEEI (ttFrF9)--i THEN 240 

232 PINS:PRIMT"ERREUR !!! CE PROGRAMM 
E NE TOURNE QUE" 

233 PR INT" SUR AI MUS. VOTRE ORDINATEUR 
EST UN " 

234 PRINT"OR IC 1. EN CONSEQUENCE, ENV 
OYEZ LA" 

233 PR I NT " VEF<S 1 ON OR IC 1” 


20 









237 REF’EAT: PING: WAIT50: UNTIL l:.EY*0" " 

238 END 

240 FOR I=#6000 TO 462D8 STEP B 
250 FOR J = I TO 1+7 

260 READ D*:D=VAL("#"+Di):POKE J,D 
270 S=S+D 
280 NEXT 

290 READ CS: IF CS-.>S THEN F'R INT"ERREU 
F: LIGNE " ;L.+ 1000: END 
300 L~L+10:S~O 


310 NEXT 
320 PR INT' 


FENETRE ATMOS IMPLANTE 1 


330 

END# 

1000 

DATA 

4C, 

1010 

DATA 

BF, 

1 020 

DATA 

01 , 

1 030 

DATA 

A5, 

1040 

DATA 

69, 

1050 

DATA 

AD, 

1060 

DATA 

FD, 

1070 

DATA 

EO, 

1080 

DATA 

28, 

1090 

DATA 

DO, 

1100 

DATA 

EO, 

1110 

DATA 

65, 

1120 

DATA 

DB, 

1130 

DATA 

20, 

1140 

DATA 

30, 

1150 

DATA 

BF, 

1160 

DATA 

OB, 

1170 

DATA 

68, 

1180 

DATA 

E4, 

1190 

DATA 

8D, 1 

1200 

DATA 

38, 

1210 

DATA 

E8, 

1220 

DATA 

BF, 

1230 

DATA 

02 ,: 

1240 

DATA 

BF, 

1250 

DATA 

EE, 1 

1260 

DATA 

BF, 

1270 

DATA 

03,. 

1280 

DATA 

AD, 1 

1290 

DATA 

85, < 

1 300 

DATA 

B 1 , « 

1310 

DATA 

F7, 

1320 

DATA 

A5, 1 

1330 

DATA 

02,. 

1340 

DATA 

69,. 

1350 

DATA 

01,1 

1 360 

DATA 

03, i 

1370 

DATA 

BF, i 

1 380 

DATA 

CB, ' 

1390 

DATA 

CB,' 

1 400 

DATA 

02,, 

1410 

DATA 

A5, i 

1420 

DATA 

03, 

1430 

DATA 

E3,1 

1440 

DATA 

4E,I 

1450 

DATA 

6D, 1 

1460 

DATA 

BF, 

1470 

•DATA 

EB, 

1 480 

DATA 

A9, 

1490 

DATA 

28, 

1500 

DATA 

A2, 


1510 DATA AO,01,91,00,A2, 01 ,8E,E8,843 
1520 DATA BF,AE,El,BF,FO,04,AO,29,1226 
1530 DATA 91,00,A9,02,8D,El,BF,AD,1046 
1540 DATA E6,BF,CD,E2,BF,DO,06,CE,1463 
1550 DATA E1,BF,18,90,09,CE,E6,BF,1220 
1560 DATA EE,E8,BF,EE,E8,BF,AD,E7,1726 
1570 DATA BF,CD,E4,BF,DO,06,CE,E1,1460 


1580 DATA BF,18,90,09,CE,E7,BF,EE,1234 
1590 DATA E9,BF,EE,E9,BF,A9,2A,8D,1438 
1600 DATA EA,BF,20,03,60,AE,E9,BF,1154 
1610 DATA AC;E3,BF,AD,EA,BF,91,00,1338 
1620 DATA 88,10,FB,18,A5,00,69,28,737 
1630 DATA 85,00,A5,01,69,00,85*01,538 
1640 DATA AO,00,AD,EA,BF,91,00,AC,1075 
1650 DATA E8,BF,91,00,CA,DO,E4,AC,1370 
1660 DATA E8,BF,AD,EA,BF,91,00,88,1302 
1670 DATA 10,FB,AD,El,BF,DO,01,60,1161 
1680 DATA AD,EA,BF,C9,20,FO,83,A9,1371 
1690 DATA 20,8D,EA,BF,A2,OD,AO,00,933 
1700 DATA 88,DO,FD,CA,DO,FB,FO,AA,1665 
1710 DATA AD, ED, BF, DO, 27,.A9, 47, AO, 1248 
1720 DATA 62,20, BO, CC', 4C, 99, C4 , OD, 948 
1730 DATA OA,50,41,53,20,44,45,20,439 
1740 DATA 46,45,4E,45,54,52,45,20,553 
1750 DATA 41,20,46,45,52,4D,45,52,546 
1760 DATA 2E, OD, OA, 00, CE, ED, E*F, 38, 759 
1770 DATA AD,EB,BF,E9,06,85,02,AD,1146 
1780 DATA EC,BF,E9,00,85,03,AO,00,956 
1790 DATA B1,02,8D,EB,BF,C8,B1,02,1125 
1800 DATA 8D,EC,BF,C8,B1,02,85,00,1080 
1810 DATA C8,B1,02,85,01,C8,B1,02,892 
1820 DATA SD,ES,BF,C8,B1,02,8D,E9,1317 
1830 DATA BF,AD,EB,BF,85,02,AD,EC,1334 
1840 DATA BF,85,03,AE,E9,BF,AC,E8,1329 
1850 DATA BF,B1,02,91,00,88,CO,FF,1098 
1860 DATA DO,F7,18,A5,02,6D,E8,BF,1178 
1870 DATA 85,02,A5,03,69,00,85,03,544 
1880 DATA 18,A5,02,69,01,85,02,AS,597 
1890 DATA 03,69,00,85,03,18,A5,00,433 
1960 DATA 69,28,85,00,A5,O1,69,00,549 
1910 DATA 85,01 ,CA, Ep, FF, DO, Ç7, 6£> ,1318 








1230 D0) E 4BFEB,W64ÙO:PO)E4BFED.O 
1233 FO)E VIT,13 
1240 : 

1250 PO) E MOT,32 CHANGE MOTIF EN SPC 
i 1260 CALL OUVRE,1+DD,0,38+DD,26 
1270 CLS:P0KE618,10:FOIE MOT,37 
1280 PR INT:FR INT:PR INT:PRINT:PR INT 
1201 PRINT CHR*<4>" "CHR*( 

27)"JWINDOW'CHR*(4) 

1282 PRINT:PRINT:PRINT:PRINT 

1284 PRINT*'AVEC WINDOW," 

1285 PRINT" VOUS POUVEZ OUVRIR UN NOM 
BRE" 

1286 PRINT"IMPORTANT DE FENETRES, AVE 
C DES" 

1287 PR INT"CONTOURS TOTALEMENT DIFFER 
ENTS :" 

1300 CALLOUVRE,1+DD,15,36+DD,17:PL0T3 
+DD,16,"VEUILLEZ PRESSER UNE TOUCHE, S 

VP" 

1303 GETR*:CALL FERME 
1310 FOR 1=1 TO 40 

1 320 A= I NT (RND <1> »30)+2:B=INT < RND < 1 ) * 
20 ) 

•1325 C=INT (RND < 1 ) »50> «-33:FOKE MOT.C 
1330 CALL OUVRE ,A,B,A+5,B+5 
1340 NEXTsWAIT 200 
1350 POKE MOT,42 

1360 CALL OUVRE,1+DD,0,38+DD,26 


1370 PLOT lu,13."PRESSEZ UNE TOUCHE" 
1380 R*=KET*:GETR* 

13<»0 CALL FERME : F OLE VIT, 13 
1400 FOR 1=1 10 40 
1410 CALL FERME:WAIT 30 
1420 NEXT 

1430 FR INT:PR INT"VOUS POUVEZ EGALEMEN 
T OUVRIR VOS" 

1440 PRINT"FENETRES A VITESSE VARIABL 


1450 CALLOUVRE,1+DD,10,36+DD,12:FL0T3 
♦DD,11,"VEUILLEZ PRESSER UNE TOUCHE, S 
VP" 

1455 GE TR*:CALL FERME 
1460 FOR 1=5 TO 100 STEP 15 
1470 POPE VI T,I 

1480 CALL OUVRE,1+DD,0,38+DD,26 
1490 NEXT 

1500 FOR 1*100 TO 5 STEP -15 
1510 P01E VIT,I 

1520 CALL OUVRE,1+DÜ,0.38+DD,26 
1530 NEXT 

1540 FOR 1=1 TO 14:CALL FERME 
1550 NEXT 
1555 CLS 

1560 FR INT SPRINT"AU FAIT, VOUS RAPPEL 
EZ VOUS DE LA PAGE" 

1570 PRINT"OU VOUS AVEZ TAPEZ RUN >" 
1580 WAIT 400 

1600 PO) E 4268, X : PO) Et)269, Y : DO) EN 1 2, A 
D: PO) E618.N 
1610 CALL FERME® 


Modification de la carte série 

Charles Burghoffer 


D; 


écrite par Frédéric 
ARAUDdans THEORIC 
15, la carte série 
fonctionne très bien mais 
pose un problème dès qu'on 
utilise conjointement au 
Mlcrodisc ou à tout autre 
périphérique connecté au bus 
d’extension. 


Dans le numéro 18, Frédéric 
TARAUD propose une solution 
logicielle. Il est possible d'envi¬ 
sager une solution hard aussi 
simple que peu coûteuse dont 
voici la description. 

Il suffit d'intercaler une diode 
(1N4148) dans la ligne I/O CON- 
TROL de la carte, selon le sché¬ 
ma ci-après. 


Le sens n’est pas une erreur, 
elle est bien dirigée vers le cir¬ 
cuit 6551 

Explications : En l'absence de 
cette diode, si un autre périphé¬ 


1 


74138 

r 



8 



-r 

I/O CONTROL ^ 


1N4148 



CS1 


+ 5V 

1 


6511 


rique passe sa ligne i/0 Control 
à l'état bas, cet état bas se 
retrouve sur CS1 du 6551 qui 
se trouve ainsi validé alors qu'il 
n'a pas à l'être. 

Par contre, lorsqu’on intercale 
cette diode, la mise à bas du i/0 
Control du Microdisc est sans 
effet sur le 655T qui se trouve 
maintenu à l'état haut par la 
sortie (yO par exemple) du 74 


LS138. 

Seul le passage au niveau bas 
de cette sortie, c'est-à-dire un 
PEEK ou en POKE aux adres¬ 
ses #380 et suivantes, pourra 
valider le 6551. 

Essayez, ça marche, et pour le 
prix d’une simple diode, on 
peut éviter la réinitialisation sys¬ 
tématique de la carie après cha¬ 
que opération sur disque ! 
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SUR VOTRE DOS 

Stockage du DOS 

dans la 
RAM overlay 

Pierre CHICOURRAT 

N ous avons vu le mois dernier qu'il fallait de la place en 
mémoire pour y stocker le DOS. Or, le microproces¬ 
seur de votre ORIC n'est capable d'adresser que 64 KO 
en ligne. C'est-à-dire qu'il ne peut naturellement (sauf 
astuce) avoir accès qu'à 64 KO (pour un 8 bits). 


En effet, d'une manière sché¬ 
matique, quand il veut lire ou 
stocker une information dans 
une mémoire, le microproces¬ 
seur dispose de 2 octets (c'est- 
à-dire de 16 bits) pour en indi¬ 
quer l'adresse. Or sur 16 bits, 
on ne peut coder en binaire 
que des nombres de 0 à 
65535, donc une adresse maxi¬ 
male égale à 65535, c'est-à-dire 
64 KO de mémoire directement 
adressable (1 KO = 1024 oc¬ 
tets) (pour avoir plus de préci¬ 
sion sur la manière d'adresser 
une mémoire Cf annexe 1 ). 

Pour augmenter cette mémoi¬ 
re, on peut penser à plusieurs 
systèmes. Le premier est un 
système de pages mémoires 
(en anglais: ’BANKSWITCH- 
ING' qui devrait être utilisé sur le 
Telestrad et qui existe sur Ams¬ 
trad) décrit en annexe 1. 

Les concepteurs d'ORIC ont 
prévu une autre astuce. Ils ont 
placé dans l'ORIC une RAM de 
64 KO et une ROM de 16 KO 


En temps normal, l'ORIC adres¬ 
se (utilise) les 48 premiers KO... 
de RAM et les 16 KO de ROM. 
Les 16 derniers kilos de RAM 
sont donc en quelque sorte re¬ 
couverts par la ROM, d'où le 
terme de RAM overlay. Un fil du 
BUS (ensemble des fils servant 
au transport d'informations par 
le micro) a été réservé pour per¬ 
mettre de déconnecter cette 
ROM (fil ROMDIS : ROM Disa- 
ble) et de récupérer ainsi la 
RAM overlay. Donc, suivant l'é¬ 
tat de ce fil, c’est soit la ROM qui 
est adressée, soit la RAM over¬ 
lay (en plus bien sûr de la RAM 
normale). 

On dispose ainsi d'un espace 
de 16 KO de RAM utilisable 
sans encombrement de la RAM 
utilisateur. Le lecteur de disque 
dispose d'un système permet¬ 
tant de changer à volonté l'état 
du ROMDIS (montages simi¬ 
laires à ceux déjà paru dans 
THEORIC). Ce système se com¬ 
mande à partir de l'adresse 


#3FA. Pour accéder à la RAM 
overlay, il suffit de mettre le 
contenu de #3FA à 1. Pour re¬ 
passer en ROM normale, il suffit 
de le remettre à 0. Mais atten¬ 
tion : il faut bien réaliser que 
lorsqu'on utilise la RAM overlay, 
la ROM est masquée. Donc 
toutes les opérations qui uti¬ 
lisent ses routines ne peuvent 
plus avoir lieu. En particulier, 
cela pose un problème au ni¬ 
veau des interruptions IRQ 
(celles qui en particulier se char¬ 
gent du clavier) et des NMI (Non 
Masquable Interrupts : RE¬ 
SET) qui ne pourront plus avoir 
lieu. Il n'est donc plus question, 
ni de faire un reset, ni de vouloir 
gérer le clavier quand on utilise 
la RAM overlay, d'où nécessité 
absolue d'interdire ces interrup¬ 
tions en les masquant. C'est la 
raison pour laquelle la bonne 
routine de branchement de la 
RAM overlay est celle de la figu¬ 
re 1 (débranchement figure 2). 
De plus, ceci est évident mais 
on l'oublie souvent, il est impos¬ 
sible d'utiliser d'une part le BA¬ 
SIC et d'autre part les routines 
de la ROM normale (du moins 
directement en faisant un jsr en 
L.M) puisque la ROM n’existe 
plus quand la RAM overlay est 
branchée. 

Comme l'utilisation de cette 
RAM overlay n'est pas spéci¬ 
fique aux disquettes et que la 
littérature la concernant est 
abondante, elle n'appelle guè¬ 
re plus de commentaires. Ce¬ 
pendant, nous allons lui trouver 
une application très particulière 
en rapport avec les disquettes. 
La RAM overlay peut contenir 
n'importe quoi, et en particulier 
la ROM normale de votre ORIC. 
Le seul intérêt de cette opé¬ 
ration réside dans le fait que 
comme il s'agit de RAM, si on y 
transfère la ROM, on pourra la 
modifier, et en particulier sup¬ 
primer la plupart des moyens de 

protection mis en place lors du 
chargement par les program¬ 
mes du commerce. ATTEN¬ 
TION : nous ne vous incitons 
pas à pirater les programmes, 
ceci allant à l'encontre de vos 
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intérêts : en cas de piratage de 
leurs programmes, les auteurs 
se décourageront et ne produi¬ 
ront plus rien. Finalement, c'est 


vous-même qui subirez les con¬ 
séquences de ce comporte¬ 
ment. La seule utilisation de 
cette possibilité que nous vi¬ 


sons ici est le transfert des pro¬ 
grammes des cassettes aux dis¬ 
quettes. Puisque les éditeurs 
semblent malgré les multiples ► 



RESET 


R/14 

D0 

DI 

D2 

D3 

D4 

D3 

Dé 

07 

A15 

A14 

A13 

Uss 




Ci-dessus, vous pouvez voir le 
brochage global du 6502, micro¬ 
processeur équipant votre 
ORIC. Un microprocesseur est 
principalement un composant 
tourné vers la communication 
avec le monde extérieur. 25 bro¬ 
ches sont d'ailleurs destinées à 
cette tâche : 

-les 16 lignes d'adresses uni¬ 
directionnelles (l'information ne 
peut y circuler que dans le sens 
microprocesseur -> mémoires 
et VIA. Elles désignent l'adres¬ 
se de la mémoire avec laquelle 
désire communiquer le 6502 ; 
-les 8 lignes de données bi¬ 
directionnelles (l'information y 
circule dans les 2 sens) qui ser¬ 
vent à transmettre les octets ; 

- le signal R/W servant à com¬ 
mander le sens de communi¬ 
cation sur les lignes de don¬ 
nées (R/W = Read/Write = 
Lecture/Ecriture). 

Cette description est d'ailtleurs 
la même pour la plupart des 
microprocesseurs 8 bits. Ainsi 
donc, on dispose de 16 lignes 
(i.e : 16 bits) pour indiquer 
l'adresse de la mémoire à lire ou 
écrire (d’où 64 KO adres¬ 
sables). Dès lors, quand il veut 


lire une mémoire, le micropro¬ 
cesseur n'a qu'à envoyer son 
adresse sur les lignes AO,... 
Al 5. Il met ensuite le signal 
R/W en Read (ligne à 0), et il 
récupère la donnée sur les 
lignes DO,... D7. L'écriture se 
passe de manière similaire : l'a¬ 
dresse est envoyée sur AO,... 
Al5, la donnée sur DO,... D7, et 
la ligne R/W est mise à 1 (cou¬ 
rant actif). 

Pour augmenter l'espace adres- • 
sable (et donc la capacité mé¬ 
moire), on utilise le système de 
pages mémoires ou ’BANK- 
SWITCHING' ('commutation de 
groupes'). Ce système consiste 
tout simplement à découper un 
espace mémoire en groupes 
de 64 KO que le micropro¬ 
cesseur adressera en ligne. 
Dès lors, pour indiquer l'adres¬ 
se d'une case mémoire, il faut 
donner son numéro de bloc et 
son adresse dans le bloc (qui 
reste codée sur 16 bits). L'a¬ 
dressage d'une case se fait 
alors en 2 temps : 

-1er: ayant le numéro de 
bloc, on connecte le bloc consi¬ 
déré à la ligne d'adresse du 


microprocesseur (d'où le nom 
de 'commutation' ou 'switching 1 ) 

- 2e : on adresse la case de 
manière normale sur le bloc 
commuté. 

Cette méthode semblerait être 
idéale pour augmenter considé¬ 
rablement la taille mémoire des 
micro (d'autant plus intéres¬ 
sante que le prix des RAM a 
considérablement baissé), mais 
elle présente deux inconvé¬ 
nients majeurs faisant que son 
utilisation ne s'est pas aussi 
développée qu'on pourrait le 
croire : 

-1er inconvénient: le sys¬ 
tème est assez lourd à mani¬ 
puler pour le programmeur. 

- 2e : le temps d'accès à une 
case augmente considérable¬ 
ment du fait de la longueur de la 
première étape. 

De ce fait, les gros systèmes se 
sont développés préférentiel¬ 
lement autour de 16 bits (bien 
que plus chers, ils sont plus ra¬ 
pides, plus souples) qu'autour 
de 8 bits avec BANKSWIT- 
CHING, et ce système n'est guè¬ 
re utilisé que sur des familiaux' 
(ex : AMSTRAD)# 
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demandes, refuser cette tâche, 
il faut le faire soi-même. 

Le programme proposé (figure 
3 pour l'ORIC-1 et figure 4 pour 
ATMOS) se charge de trans¬ 
férer la ROM en RAM overlay en 
l'ayant préalablement modifiée 
de manière à supprimer toutes 
les possibilités d’effacement de 
la mémoire qu'utilisent les pro¬ 
tections classiques (RESET à 
froid). Plus précisément, ce pro¬ 
gramme transfère la ROM en 
RAM, la modifie, vous propose 
de la sauver sur disque, puis la 
place éventuellement en RAM 
overlay. Nous attirons votre 
attention sur le fait que si vous 
utilisez cette astuce, le DOS ne 
sera plus en mémoire. Pour le 
recharger, il faudra rebrancher 
la ROM normale, puis BOOTER 
le DOS (c'est-à-dire le charger) 
en appuyant sur le bouton cor¬ 
respondant du lecteur. 

Une fois la ROM ainsi modifiée, 
chargez le programme que 
vous voulez transférer sur dis¬ 
que. Une fois celui-ci lancé, 
vous pourrez faire un RESET 
(en appuyant sur le bouton du 
dessous), sans risquer de per¬ 
dre le programme. Il ne vous res¬ 
tera plus qu’à trouver les adres¬ 
ses de début et de fin (s'il d'agit 
d’un programme en BASIC, au¬ 
cun problème ne se pose : il 
suffira de la sauver normale¬ 
ment après avoir BOOTE le 
DOS) et l'adresse de départ. 
Cette opération peut s'avérer 
délicate et doit se faire la plupart 
du temps à l'aide d'un petit dés- 
assembleur. Cependant l'exploi¬ 
tation à fond des variables sys¬ 
tèmes du BASIC (l’adresse dé¬ 
but et fin d'une zone chargée 
par CLOAD" " est en mémoire) 
apporte une sérieuse aide. 
Nous n'en dévoilerons cepen¬ 
dant pas plus : c'est à vous de 
découvrir le reste... 

Nous avons donc vu où se char¬ 
geait le DOS, mais nous n'a¬ 
vons pas regardé comment il se 
chargeait. Ce chargement s'ap¬ 
pelle le 'BOOP (ou ’BOOTING' 
du DOS ; de l'anglais TO BO- 
OT = CHAUSSER). Nous ver¬ 
rons cette opération le mois pro¬ 
chain. Vous trouverez les adres- 
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Figure 2 : Rebranchement de la 
ROM normale 
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Figure 3 : Modification de la ROM 
pour ORIC-1, en vue du transfert 
des programmes commercialisés 
sur cassettes aux disquettes. 


20 RDI— 

TO PCM— MODIFICflTIOn DE LO ROM 

40 REH— POUR OR IC 1 

60 REH 

70 IRREEL ttFFFE • -JOTHEHRItlG PP IUT" VOUS AVEZ UH ATMOS PRENEZ L ' AUTRE PROGRAMM 
E" 

7? IFPEDY ttFFFE V 40THEMENO 
80 ftC-=t»lFO0 T EXT PAPERO INI 2 CLS 

00 HIMEHHC—1 RESTORE CLEfiR AC'-ttlFOO I+AD REFEATREADA* ft-VOL' "»"•**»> ROI El,A 
ÎOO 1=1+1 UNTILAS="*" 

110 PÛKEAD+#1C,2 POKEAD+tt 1E, O ■ PùkEAD+tt 15,0 CALLAO 
120 REPEAT READB* I=vAL<"#"+B*> 1FB*="*"THEN160 
130 REPEAT i READA* • A=VAL( "ti"+A*) 

140 IFA#< >"*“THENPOKEI.A 1 = 1 + 1 
150 UNTILAS="*“ 

160 UNTIL6*="*" 

170 REPEAT 

180 READA*,B*,C* A=VAL< "tt"+A* ) E'=VAL< "tt" + B*> C=VAL< "tt”+CS • 

190 IFA*<>"*"THENFORI=ATOB J=PEEI« I > POKEC.J C=C+1 NEXT 
200 UNTILA*="*" 

210 POKEAD+tt 1C,0 PÜKEAD+# 1E, 2 P0KEAD+# 15.1 P0KEAD+ #2D. 76 
220 D0KEAD+tt2E, ttF84A 

230 CLS,PRINT PRIHT”VOULEZ-VOUS SAUVER LA NOUVELLE ROM ?" 

248 PRIHT"(JCELLE-CI EST EH RAM A PARTIR DE 
250 PRINT“L ' ADRESSE "HEXSC AD+ttiOO >" >“ PRIHT 
260 PRIHT"SAUVEGARDE COU-UND ?" 

270 P0KEK2DF,O GETR*■IFR*="N"THEN370 
2S0 IFR*< >"0"THEHPIHG G0T0270 
290 CLS : PRINTSPC<10 >"SAUVEGARDE “ 

3O0 PRIHT PRIAT PR I HT "VEUILLEZ TAPER LE NOM QUE VOUS" 

310 IHPUT"DESIREZ LUI DONNER ".N* 

320 PRIHT"METTEZ LE DISQUE EH POSITION ET " 

330 PRIHT"TAPEZ UNE TOUCHE" P0KE#2DF,0 GETR* 

340 'SAVEH*".BIN. "AD", "AD+(t4180 

350 PRIHT PRINT• PRINT"SAUVEGARDE REALISEE ..." ► 
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360 PRINT PRINT"VOULEZ-VOUS EN FOIRE UNE NOUVELLE ?" GOTO270 
370 CLS 

380 PRINT"POUR METTRE EN PLACE CETTE NOUVELLE" 

390 PRINT"ROM ET LA LANCER. IL VOUS SUFFIRA" 

400 PRINT”DE FOIRE “ 

410 PRINT'XALL "HEXKOD) PRINT 

420 PRINT'XU ALORS DE CHARGER LA ROM SAUVEE EN" 

430 PRINT"LA FAISANT DEMARRER AUTOMATIQUEMENT " 

440 PRINT PRINT"TAPEZ UNE TOUCHE" POKE#2DF,0 GETP* 

450 CLS PRINT”AVEC CETTE NOUVELLE ROM, VOUS POURREZ" 

460 PRINT"CHARGER LES PROGRAMMES SANS QUE CEUX-" 

470 PRINT'XI NE DEMARRENT, ET DONC LES ETUDIER" 

480 PRINT'XN VU DE LES TRANSFERER SUR DISQUETTES" 

490 PRINT"IL VOUS SUFFIRA D’UN SIMPLE" 

500 PRINT"DESASSEMBLEUR. " PRINT PRINT 

510 PRINT"POUR QUELQUES PRECISIONS UTILES, TAPEZ" 

520 PRINT"UNE TOUCHE" P0KE#2DF,O GETR* 

530 CLS PRINT"VOICI QUELQUES PRECISIONS SUR CETTE" 

540 PR INT "NOUVELLE ROM " 

550 PRINT"- LES ADRESSES DE RESET NE SONT PAS 
560 PRINT" CHANGEES, MAIS LE RESET NE PEUT" 

570 PRINT" PLUS ETRE MODIFIE DEPUIS LA ROM" 


580 PRINT" < DANS LA ROM NORMALE, EN ", READA* PP HITA»" ■" 

590 PRINT" <ON TROUVAIT LE DCBUT DU RESET)" 

600 PRINT” LES IRQ NE PASSENT PLUS EN RAM NI" 

610 PRINT" A LEUR DEBUT. NI MEME A LEUR RETOUR" 

620 PRINT"- LE RESET A FROID <EN ", READA* PPINTA*" •" 

630 PRINT" NE PEUT AVOIR LIEU QU’UNE SEULE" 

640 PRINT" FOIS 

650 PRINT"- LA lere PAGE DE LA ROM EST RES-" 

660 PRINT" TAUREE AU CAS OU LE PROGRAMME" 

670 PRINT" CHARGE LA DETRUIRAIT" 

680 PRINT"- LE RESET NE DETRUIT NI LES CARAC-” 

690 PRINT" TERES CHARGES, NI L’ECRAN, ET CON-" 

700 PRINT" SERVE LES COULEURS D'ENCRE ET DE" 

710 PRINT" PAPIER" PRINT PRINT” TAPEZ UNE TOUCHE" P0FE*2DF,0 GETR* 

720 CLS PRINT“ENFIN 

730 PRINT” - LA PILE DU MICROPROCESSEUR EST” 

740 PRINT"ENTIEREMENT TRANSFEREE EN MEMOIRE" 

750 PRINT“A PARTIR DE RFC70 JUSQU’A KFD6F" 

760 PRINT” - LA ZONE ", READA* PRINTA* PPINT" EST A PARTIR DE #FE71" 

770 PRINT PRINT” - ON FORCE UN RTS SUR LE VECTEUR DU" 

780 PRINT" Re#d»' EN «IA" 

790 PRINT PRINT" - POUR REMETTRE LA ROM NORMALE" 

SO0 PRINT"ET POUVOIR AINSI ’REBOOTER’ LE D.O.S" 

810 PRINT”TAPEZ EN MODE DIRECT LA LIGNE D’INS-" 

320 PRIN T"TRUC TION SUIVANTE " 

830 PRINT"POKE#30E,127 P0KER3FA.0 P0KEH3QE,192" 

840 PRINT PRINT"TOPEZ UNE TOUCHE POUR CONTINUER" POKE#2DF,0 GETP* 

850 PRINT PRINT PRINT”VOULEZ-VOUS LANCER LA NOUVELLE ROM T" 

360 PRINT PRINT'TCE PROGRAMME SERA ALORS DETRUIT)" 

870 PQKEH2DF,O'GETR* IFR*="0"THEHCALL#1FOO 
830 IFR*< >“N”THENFING G0T0870 
390 END 

900 DRTAA9<00.35,00,85,02,09,20,35,01,A9>C0,85,03,09,7F,73,8D,QE,03 
910 DATAA9,01,8D,FA,03,A0,00,B1.OO,91,02,E6,00,D0,O2,E6,01 E6,02.D0 
920 DATAF2,E6,O3,D0,EE,A9,C0,O0,00,8D,FA,03,8O,0E,03,5S,60,* 

930 DATA53S8,2O,60,F9,A9,07,A2,4O,20,06,F4,20,D0.EB,A9,FF.8D.0C.02.6O.I 

940 DATA24C4,20,ED,CB,4 

950 DATA5FFA,30,F4,4 

960 DATA5FFC,30,F4,4 

970 D0TA5FFE, 03, EC, * 

980 DATA4D18,40,4 

990 DATA542D,EA.EA,EA,4 

1000 DATA5430,4C,AC,C2,4 

1010 DATA22AC,A2,00,BD,00,01,9D,70,FC,BD,70,FD,9D,00,C0,E8,DO-F1, A2..0O 

1020 DATABD.28,02,9D•71.FE,BD,41.TS.9D,28.02-E3,E0.0B,DO.EF,09.60,35,IA 

1030 DATAA2,FF,9A.4C,82.F8,4 

1040 DATA59F2,84.4,4 

105© DATA2O00,20FF, 5070 

1O60 DATA4,4,4 

1070 DATA#22B,#F42D,"#228 A *232 '-IRQ * RESET>" 



Abonnement 
disquettes JASMIN 


Les disquettes de THEORIC ont du 
succès. En conséquence, leur prix 
baisse et passe à 116 F pour les 
abonnés à la revue et 146 F pour 
les non-abonnés. 


Pour vous faire économiser davan¬ 
tage, nous proposons l'abonne¬ 
ment aux disquettes. Pour 6 
disquettes, vous ne payerez que 
606 F. Cet abonnement est totale¬ 
ment indépendant de l'abonne¬ 
ment à la revue. L'économie réa¬ 
lisée est loin d'être négligeable ! 
N'oubliez pas, ces disquettes peu¬ 
vent être transférées sous SEDO- 
RIC par l'utilitaire CONVERT... pour 
peu que votre SEDORIC soit à 


ses importantes du DOS et éga¬ 
lement la manière de corriger 
un premier bug du D.O.S : la 
commande START. 

- Pour aller plus loin : 

Le mois dernier, nous vous pro¬ 
posions de modifier la routine 
de lecture d'un secteur pour en 
faire une routine d'écriture. La 
solution était presque entière¬ 
ment donnée dans le texte : la 
voici complète. 

Modification du programme en 
assembleur : 

les lignes suivantes sont à rem¬ 
placer ; voici leur nouveau 
contenu : 

51RECUP STXS03F7 

52 INY 

53 ATAMPON LDX$BCOO.Y 

54 RTI 


65 RS LD A #$AA; 

commande le mode écriture 
68ETI1 LDXSBCOO 

insérer entre la ligne 137 et 138 
la ligne suivante : 

STXETI1 +2. 


Vous trouverez figure 5 les nou¬ 
velles DATA pour le programme 
d'implantation en BASIC de la 
routine ; il vous suffit simple¬ 
ment de les remplacer. 

Nous ne poserons pas aujour¬ 
d'hui de problèmes particuliers, 
mais vous pouvez vous en¬ 
traîner à utiliser la RAM overlay 
pour y transférer la ROM et la 
modifier (en particulier, vous 
pouvez redéfinir la routine d’affi¬ 
chage d’un caractère (l'adresse 
en a été donnée dans le pré¬ 
cédent article) pour permettre 
une meilleure tabulation de l'affi¬ 
chage (marge gauche imposée 
par exemple)... etc... En fait les 
possibilités sont très nom¬ 
breuses et c'est pour cela que 
nous ne voulons nous res¬ 
treindre à rien de trop parti¬ 
culier. En attendant : au pro¬ 
chain numéro... 



I ■ * « V» I 1 * * * , * . — J /la ^ ^ ' 
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Figure 4 : Modification de la ROM 
pour ATMOS, en vue du transfert 
des programmes commercialisés 
sur cassettes aux disquettes. 


10 PEM—«= 

20 PEf1=» 

30 REM— 

40 REM= 

50 REM«~ 

60 REM 

70 IFPEEK(*FFFE)-40THENFING PRINT”VÛV 


MODIFICflTIOM C'E L.R 
POUR ORIC-RTMÜ5 


AVEZ UN C-PIC-1 PRENEZ L'OUTRE PPOC'Ativr 


75 1FFEEK<»FFFE>«40THENEND 
90 ADMIF0O TEXT PAPER0 If» 2 CLS 

90 HJMEMRD-I RESTORE CLEAR RD=«lF00 I =AD PEPEAT READA* A=VAl- •'■ '•h* 
100 !■!♦! UNTILA»*"*" 

110 P0KEAD*41C.2P0KEAD**1E.0 P0kEAD+*l5.0 CALLAD 
120 REPEflT READB* Ix-vAL' “•"♦BS ? IFB*= “ *'THEN160 
130 PEPEAT READA* A-VAL' “■"♦A*) 

140 IFA*<. "l"THENPOKEI.fl !»IM 
130 UNT1LA*="*“ 

160 UNTILB*»"»" 

170 REPERT 

180 READA*.B*.C* fl»VAL<”^A* ) 6*VAL' “•'•♦B*.' C-VAL' “•'♦C* • 

190 IFA»<>"*“TH£NF0RI«AT0B J«PEEf" I> POKEC.J C«C*1 NEXT 
200 UNTlLRt--*" 

210 POKERD«-ilC.0 POKERO*«1E.2 P0»:EAD**13. 1 P0kEAD*«2D.76 
220 D0KEAD*»2E.*C2D9 

230 CLS PRINT PRINT“VOULEZ-VOUS SAUVER LR NOUVELLE POU ' 

240 PRINT“(CELLE-CI EST EN PRM fl PRPT IR CE 
250 PR INT“L'ADRESSE "HEX*v AD*« 100 •“ <“ PRINT 
260 PRINT" SAUVE CARDE C03CN3 *“ 

270 POKE»2DF.O GETR* IFR«="N"THEN370 
280 IFR*< >“0"TMENPIHC GOTO270 
290 CLS PRINTSPCC10^"SAUVEGARDE “ 

300 PRINT PRINT PR INT "VEUILLEZ TAPER LE NOM QUE VOUS" 

310 INPUT'DESIREZ LUI DONNER ".N* 

320 PRINT-METTEZ LE DISQUE EN POSITION ET " 

330 PRINT-TAPEZ UNE TOUCHE" P0kE*2DF0 GE TP* 

340 1 SAVEN*".BIN."AD“.“AD»*4100 

330 PRINT PPINT PRINT"SAUVEGARDE REALISEE ... 

360 PRINT PRINT"VOULEZ-VOUS EN FRIPE UNE NOUVELLE G0T0270 
370 CLS 

380 PRINT"POUR METTRE EN PLACE CETTE NOUVELLE" 

390 PRINT-ROM ET LA LANCER. IL VOUS SUFFIRA" 

400 PRINT"DE FAIRE “ 

410 PRINT"CALL "H£X*( AD > PRINT 

420 PRINT"OU ALORS DE CHARGER LA ROM SAUVEE EN" 

430 PR INT"LA FRISANT DEMARRER AUTOMATIQUEMENT “ 

440 PRINT PRINT-TAPEZ UNE TOUCHE" POKE*2DF.O GETR* 

430 CLS PRINT“AVEC CETTE NOUVELLE ROM. VOUS POURREZ" 

460 PRINT"CHARGER LES PROGRAMMES SANS QUE CEUX-" 

470 PRINT“CI NE DEMARRENT. ET DONC LES ETUDIER" 

480 PRINT-EN VU DE LES TRANSFERER SUR DISQUETTES" * 

490 PRINT"IL VOUS SUFFIRA D'UN SIMPLE" 

300 PR INT"DESASSEMBLEUR." PRINT PRINT 

310 PR INT"POUR QUELQUES PRECISIONS UTILES. TAPEZ" 

320 PRINT"UNE TOUCHE" P0KE#2DF,0 GETR* 

530 CLS PRINT“VOICI QUELQUES PRECISIONS SUR CETTE” 

340 PRINT“NOUVELLE ROM “ 

530 PRINT”- LES ADRESSES DE RESET NE SONT PAS 
360 PRINT” CHANGEES. MAIS LE RESET NE PEUT" 

570 PRINT“ PLUS ETRE MODIFIE DEPUIS LA RAM“ 

580 PRINT" (DANS LA ROM NORMALE. EN -, READA* PRINTA*" >- 
330 PRINT” (ON TROUVAIT LE DEBUT DU RESET)" 

600 PRINT"- LES IRQ NE PASSENT PLUS EN RAM NI" 

610 PRINT" R LEUR DEBUT, NI MEME fl LEUR RETOUR- 
620 PRINT"- LE PESET A FROID (EN ", READA* PRINTA*" ." 

630 PRINT" NE f-feUT AVOIR LIEU QU'UNE SEULE" 

640 PRINT” FOIS 

630 PRINT"- LA |«r* PAGE DE LA ROM EST RE3-" 

660 PRINT" TRUREE AU CAS OU LE PROGRAMME" 

670 PRINT” CHARGE LR DETRUIRAIT" 

680 PRINT*- LE RESET NE DETRUIT NI LES CAPAC-" 

690 PRINT" TERES CHARGES. NI L'ECRAN, ET CON-" 

700 PRINT- SERVE LES COULEURS D'ENCRE ET DE" 

P - IUT PRIMT *' TflPEZ IJKE TOUCHE" POK£«2DF.0 GETR* 

i tU LLS rKlNT ENFIN 

730 PRINT" - LA PILE DU MICROPROCESSEUR EST" 

740 PRINT“ENTIEREMENT TRANSFEPEE EN MEMOIRE" 


730 PRINT'A PARTIR DE «FC70 JUSOU'A »FD6F" 

760 PRINT" - LA ZONE " READR* PRINTA* PRINT" t."T A PART IP DE »F£ 7! ” 

770 PRINT PRINT" - ON FORCE UN RTS SUR LE VECTEUR :*F 
780 PRINT" R»*(h EN ■ IA" 

790 PRINT PRINT” - POUR REMETTRE LA ROM NORMALE" 

800 PRINT"ET POUVOIR AINSI 'REBOOTER' LE D.O.S" 

810 PRINT-TAPEZ EM MODE DIRECT LA LIGNE D INS-" 

820 PRINT-TRUCTION SUIVANTE 

830 PRINT“POKE*30E.127 P0KE*3FA,0 P0KE«30E.t32“ 

840 PRINT PRINT"TAPEZ UNE TOUCHE POUR CONTINUER" POFE^DF 0 GETR* 

630 PRINT PRINT PRINT"VOULEZ-VOUS LANCER LA NOUVELLE ROM ” 

860 PRINT PRINT"(CE PROGRAMME SERA ALORS DETRUIT •• 

870 P0KE*2DF,0 GETP* !PP*-“0"ThEnCALL41F00 
680 IFR*< >“N"THENPJNG G0TO87O 
890 END 

9O0 0ATAA5 OO. 83,00 85• 02 A3• 20 83 01 A3.CO-83 0! A « 7F Il *>E 0. 

910 DATAA9.O1.8D.FA.03.A0.0O.B1 00 31-02 E6 0»? DO O: En 01 E* *V 

920 C-ATAF2. E6.03/00.EE- A?- CO•A0■00•Sf•.FA.û" Cl OC 03 C' •’O 1 

930 CATR5EB9.20.AA FB A?.07.A2.40 20 >0 F5 20 E*» El A'■ PP [ ■:>. 1 

940 C ATA24B4,20.BÜ■CC * 

930 DATA5FFA.B2.F6.* 

960 DATA3FFC.B2.F8 .1 
970 DATR3FFE.22 EE * 

990 DATA4E31 40.» 

9-30 LATA588F.4C.B2.F8.1 
1000 DATA38B2.4C,A8.C2.* 

1010 DATR22A8. A2.00. BD. 00,01.90 • 7;-. FC - Bt-. 73. FD - SD ■ 00, CO - ES D0 r l A2 00 
1020 DAT ABD - 44,02,90.78.FE. BD . 86 FS ?D 44.02. ES - EO 08 t-0 EF A 9 60 23 1A 
1030 DATAA2.FF.9A.20.B8 F8.4C.7I.C4 1 
1040 DRTA3A2D.04,t,22D9.A2.FF.9A.4C 92-FS-l » 

1030 DATA2OO02OFF.3D78 
1060 DATA* ».t 


1070 DATA«247.*F88F. "§244 A *24A x. IRQ 


REÎ-ET • 



Figure S : Transformation de 

la 

rou- 

fine de lecture d'un secteur 

en 

rou- 

)tine d'écriture. 



Seules les lignes à modifier 

sont 

indiquées. Il suffit donc 

de 

re- 

prendre le programme en 

BASIC 

déjà donné et de taper ces 

nou- 

velles lignes. 




190 A-*6E I-#A3 GOSUB320 
200 A-*91 1-*C8 GOSU8320 
220 P0KEAD-*34.A P0KERD**39.B 

250 PRINT-CALL "H£X*( AD**D3)“.PISTE.SECTEUR.AORESSE" 

310 PRINT PRINT-EX CALL "HEX*(AD*4D3 )"-20.2.*BC" PRINT END 
330 DATA00,00.01.00.00.00,00,A9.01.CE,06.A0.D0.FB.2D,F4,03,D0.F6.60 
340 DATAA0.O3.08.F0.23.20.07.A0.AE.01.A0.8E.F7.03.A2.14.8E.F4.03.20 
330 DATA07.A0.AD.F4.03.29. 18.F0,07,A2.00,6E.F4,03.F0,DE.8D.03.A0,60 
360 DATAA9.11.00,F8.EA,6E.F7.03.C8.BE.00.BC,40.A9.AA.8D.F4.03,AO.O0 
370 DATAAE.00.BC,A9.4l,6D.29.02,R9.A0.0D.2A.O2.38.EA.20.07.A078,A9 
380 DATA03,8D,29.02,A9.EC.8D.2A.02.60.49.2F.4F,20.45.32.32.4F.32.20 
390 DRTA3A. 20,33.63.63. 74,63, 73. 72,20.69. 72.72.63.63.73. 70.63. 72,61 
400 DATA62.6C.63.20.21.37,32.49.54.43.20.30,32.4F.34,43.43.54,45.44 
410 DATA20.21.A9.6E.A0.A0.A2.01.05,D0.84,01.8E.03.A0.A0.00.81,D0.48 
420 DATR8C,04,A0,20,12.CC.60,AC.e4,A0,C8.C9.21,D0.EE.A9.C0.8D,0E.03 
430 DATA38.60.A9,91.A0.R0.A2,02.38.83.D5,20.D9.CF,20.0D.D8.8E.01.A8 
440 DATR20,D9.CF.20.0D.D8.8E.02,A0,20.D9.CF.20.0D.D8.8E.47,A0.8E.32 
430 DATAA0,A9,?F,80.0E,83,78,R2,00,RD.01,A0.8D,03,A8,C9.29,90,86.E9 
460 DATA29,80,01.A0.E8,8E,00,A0,A0,00,8C.FC.03.8C.FD.03,8C.FE.03,8C 
470 DATAFF,03,A9,01,8D.FC.03.AE,00.A0.8E.F0,03,20,07,AO,A9.00,8D,F4 
480 DATA03.20,14,A0,AO.03,A0,4A,90.03,4C.A2.A0.A9.10,8D.04.A0,AD.02 
490 DATAA0.8D.F6.03,AD.03.A0.8D.01,A0,CE.04,A0,F0,E7,20,49.R0,A9.40 
500 DATA2D.F4.03,F0,03,4C.CA.R0.R9.IC.20,F4,03.D0.E7.A9.00.80.03.A0 
310 DATRR9,C0.80» 0E,03.38.60,* 

320 DATAR. 6. IA. 7,1D, 1.28,7,39. 3,60.7, AD, 3.83.4 

330 DATABC.4.DA,1,E3.2.E8,47,EF,32,FA,1.FD, 3, 106.1.10A, 0,120.0.126.7.12E 

340 DATA131,3,137,A2,13C,4.13F,2,143,3.149,1,148,4,130,49 
330 DATAI3A,CA.166.3,*.* 

340 DATA36,229,243.3e.22A,246.66,229.243.68,22A,246.B8.CC12iCCD9 

570 DATA04,CFD9,D063,07,D80D.D8C8,DD, CFD9,D063,E0,D80O.D0C8 
3M DATAE6,CFW,D#€3.E9.D80O.D0C0.63,3A9,22A9.68.ECA9.EEA9.*,*,* . 




Gagnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 
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SIMULATION 
SOFT D'UNE 
LIAISON RS 
232 

Thierry LEGAL 


L es ordinateurs utilisent principalement deux grands 
standards de communication : les liaisons parallèles 
(type Centronic) où les 8 bits d’un même octet sont tous 
transmis en même temps, et les liaisons série où ces mêmes 
bits sont émis les uns à la suite des autres selon un protocole 
donné. 

Les liaisons parallèles permettent d'obtenir des débits plus 


rapides mais, en plus des fils 
leur faut 8 fils d'information, 
quant à elles, se contenter d'un seul 

Sur ORIC, la liaison parallèle est 
déjà présente. On la retrouve dans 
sa version de base sur le port impri¬ 
mante. Certains périphériques, 
comme le Minitel, ne disposent que 
d’une prise série simple, (1 entrée, 

1 sortie et 1 masse). Pour y connec¬ 
ter l'ORIC, on peut alors utiliser, 
comme proposé dans le N° 16 de 
Théorie, une carte interface série. Il 
existe toutefois , une solution 'soft' 
à ce problème. 

Nous avons, en effet, 8 fils pour 
notre liaison imprimante. Ces 8 fils 
sont tous reliés au port A du VIA et 
sont donc tous programmables 
indépendamment les uns des au¬ 
tres. Nous allons donc, en utilisant 
un seul de ces fils, pouvoir simuler 
une liaison série. Il est néanmoins 
peut-être bon de revoir les 
principes de base de son fonc¬ 
tionnement. 


de masse et de contrôles, il 
Les liaisons série peuvent, 
fil plus une masse. 

Les liaisons série : 

Ne disposant que d'un fil, il est clair 
que les Nb bits d'un caractère ne 
peuvent être envoyés que les uns 
après les autres (en série). Pour la 
transmission de ces bits, on a arbi¬ 
trairement choisi de commencer par 
le bit de poids le plus faible et de 
teminer par le bit de poids le plus 
fort. 

Les transmissions série se font en 
général en logique positive : c'est-à- 
dire que lorsque la ligne est au 
repos, elle supporte un niveau haut 
(1 logique = +5 Volts et 0 logique = 
OVolt). 

Afin de signaler l’émission d'un 
caractère, on envoie d’abord un 
signal de départ (bit de 'Start') de 
niveau 0. Suivant le code utilisé, les 
données sont constituées de Nb 
bits (Nb=5 à 8). Dans le cas du 























Minitel, Nb=7. On ne transmet donc 
que le code ASCII simple (0 à 127). 
A partir du bit de Start, ces Nb bits 
sont envoyés les uns derrière les 
autres à une cadence bien déter¬ 
minée. Par exemple, si la vitesse de 
transmission est de 1200 bauds 
(cas du Minitel), cela veut dire que 
l'on envoie un bit toutes les 
1/1200=0.83 ms. A la suite de ce 
caractère, on adjoint un bit dit de 
Parité, qui permet de détecter 
d'éventuelles erreurs de transmis¬ 
sion. On termine ensuite par 1 ou 
plusieurs bit de Stop (état 1). Nous 
n'en n'utilisons qu'un seul pour le 
Minitel, mais, on peut remarquer 
que pour la sauvegarde des pro¬ 
grammes sur K7 (qui utilise un for¬ 
mat série avec Nb=8), on en utilise 
3 pour laisser le temps à l'unité cen¬ 
trale de traiter la donnée reçue. 
Dans le cas qui nous intéresse, on 
a donc : 


Comme vous pouvez le voir, la 
Parité est une parité dite paire. En 
effet, chaque émission comporte 
un nombre pair de 1. Pour cela, la 
parité est mise à 1 s'il y a un nombre 
impair de 1 dans les bits bO à b6, et 
à 0 sinon. 

On voit aussi ici qu'il faut 10 bits 
pour envoyer un caractère de 7 
bits. 1200 bauds=1200 bits par se¬ 
conde correspondent donc à une 
cadence maximale de 120 carac¬ 
tères par seconde. 

Ce type de transmission est dit 
"asynchrone" : un nouveau carac¬ 
tère peut être émis à tout instant 
lorsque la ligne est au repos. Il est 
cependant indispensable que les 
Nb+3 bits de chaque caractère 
soient émis à une cadence suf¬ 
fisamment précise pour permettre 
le déchiffrage à la réception. La 
tolérance est en fait d’un demi 
créneau sur la longueur du format, 
c'est-à-dire (1/2)/(1+7 +1+1). On a 
donc 1/20 = 5% de tolérance entre 
la fréquence de l'émetteur et celle 
du récepteur. 


REALISATION LOGICIELLE 

1) Emission 

Pour chaque donnée à émettre, 
nous allons devoir réaliser le format 
d'émission vu précédemment. 

Nous avons pour cela choisi 
d'effectuer la sortie sur la ligne du 
’Strobe’ du connecteur imprimante. 
Cette ligne est en effet normale¬ 
ment à l’état 1 (+5 V) et ne passe à 
0 que le temps de signaler à l'im¬ 
primante qu'on lui a envoyé une 
donnée qui l'attend sur le port de 
sortie. Vu son état au repos, nous 
n’aurons à envoyer sur cette ligne 
que les 10 bits de chaque format. 
Cela est relativement simple à faire 
à condition de savoir que cette 
ligne est directement liée à la bro¬ 
che 4 du port B du Via 6522 qui est 
lui-même lié à l'adresse $300 de la 
mémoire de l'ORIC (Ouf !). Il nous 
suffira donc de mettre PB4 à 0 pour 


envoyer un niveau bas (0 Volt), et à 
1 pour un niveau haut (+5 Volts). 
Par exemple : LDA #$10 suivi de 
STA $300 mettra PB4 à 1 car $10 
s'écrit %10000 en binaire. 

L'émission proprement dite est réa¬ 
lisée par la routine "EMIS" dont le 
listing est fournit en annexe et dont 
le fonctionnement est décrit par 
l'algorithme numéro 1. 

La vitesse d'émission est réglée par 
la routine "WAIT". L’exécution de la 
séquence (DEX , BNE *-3) prend 
environ 5.2*10-6 = 5.2 ps (micro 
seconde). 

Pour un débit de 1200 bauds, on 
initialise donc X à : (1/1200)/ 
(5.2E-6) = 16 

Vous trouverez en annexe 1, les 
nouvelles valeurs à introduire dans 
la routine WAIT pour modifier cette 
vitesse de transmission. 

2) Détection : 

Cette étape est indispensable 
avant la routine de réception pro¬ 
prement dite. C'est elle qui détecte 
le passage à 0 de la ligne de récep¬ 


tion, et donc l'arrivée d'un bit de 
'Start'. Toutefois, afin d'éviter des 
départs parasites, après détection 
d'un 0, elle attend pendant une 
demi-période et vérifie que l'on est 
toujours bien à 0. On doit en effet, 
si c'était bien un vrai 'Start', se 
trouver au milieu de ce créneau. 
Enfin, on a ajouté, dans cette rou¬ 
tine, une temporisation qui fait que 
si l'on n'a rien reçu au bout d'une 
seconde, on redonne la main au 
basic. Cela permet la réalisation des 
commandes IREAD et ION que l’on 
verra plus loin. L'algorithme de 
cette routine est donné en figure 2. 
On trouvera de plus en annexe le 
moyen de modifier la durée de 
cette attente. 

3) Réception 

Grâce à la routine DETEC, lorsque 
l'on parvient ici, on se trouve 
temporellement au milieu du cré¬ 
neau de 'Start'. Il ne nous reste 
donc plus qu'à lire les 7+1 bits 
suivants, en temporisant avec la 
même routine WAIT que pour l’émis¬ 
sion, pour reconstituer la donnée. 
On en profitera pour vérifier la parité 
et l'on signalera les erreurs éven¬ 
tuelles en mettant à 1 le bit bO du 
registre ETAT. (Cf algorithme N° 3). 

A ce propos, le bit b4 à 1 indique 
que l'on peut émettre (toujours le 
cas dans ce Soft), et le bit b3 à 1 
indique que l'on a reçu une 
donnée. Cette simulation de regis¬ 
tres (BUFFER et ETAT) a été 
rajoutée, de façon à pouvoir facile¬ 
ment adapter ce logiciel aux pro¬ 
grammes initialement prévus pour 
utiliser la carte série décrite dans 
THEORIC. 

4) Décalages : 

On peut signaler ici l'importance de 
l'instruction 'ROR A' (ou ’ROR') que 
l'on trouve dans EMIS et RECEP. 
Cette instruction du 6502 permet 
d’effectuer un décalage à droite 
(Rotate Right) de l'accumulateur A. 
Si: 

A: b7 b6 ... b2 bl bO et retenue 
CY, alors ROR A donnera : 

A: CY b7 b6 ... b2 bl et retenue 
=b0. 

Cette instruction à elle seule réalise 
les conversions Série/Parallèle. 
Dans EMIS, nous avons utilisé le 


Repos [ St J bOj bï| b21 b31 b4 [_b5j b61 Pa] Sp Repos ... 

Soit par exemple :___ 

L=76=$4C :.. 1 0 Q 0j 1 ï]0 0 jl 1 ! 1 ... Pa=1 car3 bits à 1 dans $4C 

U=85=$55T7LQ_fTlQjT[0_pnojî~| 0_[l -7Pa=0 car 4 bits à 1 dans $55 
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sous-programme CIT qui met la 
ligne d'émission au niveau de la 
carry après un ROR, et inverse¬ 
ment, dans RECEP, on met dans 
CY l'état de la ligne de réception 
puis on fait un ROR. Cette instruc¬ 
tion facilite ici grandement le travail. 

5) Utilisation LM : 

Elle est très simple et ne nécessite 
que la première partie du pro¬ 
gramme LM (de $B200 à $B2CE 
car les commandes Basic sont alors 
inutiles). 

- Emission : mettre la donnée dans 
l'accumulateur A et appeler "EMIS". 
Soit par exemple : 

LDA #$55 : JSR EMIS : ... pour 
envoyer un "U". 

- Réception : faire soit JSR GET, 
soit JSR READ. Dans les deux cas, 
la donnée reçue se trouve dans 
l'accumulateur A et dans le BUF- 
FER; Toutefois, GET attendra indé¬ 
finiment une donnée (comme la 
fonction GET du basic qui attend la 
saisie d'une touche au clavier) alors 
que READ ne patientera qu'une se¬ 
conde avant de renvoyer A=0 et 
ETAT=$10 si elle n'a rien reçu. 
(C’est $18 que l'on trouve normale¬ 
ment dans ETAT après une récep¬ 
tion avec GET ou READ). 

COMMANDES BASIC : 

Afin de faciliter les Entrées/Sorties, 
nous avons créé les instructions 
suivantes (! :!@ :!FOR TO : ION : 
!GET et IREAD) qui permettent de 
répondre à la majorité des 
situations que l'on peut rencontrer. 

1) ! : C'est l'instruction de base. 
Elle émet les codes ASCII qu'on lui 
soumet sous forme de valeurs 
numériques ou de chaînes de 
caractères. Exemple : Il2,"ABC" 
effacera l'écran du Minitel et écrira 
"ABC" sur la première ligne. Cette 
fonction est très puissante et peut 
évaluer toute expression Basic. La 
virgule permet de séparer les 
différentes données. Par exemple, 
!#C,7,CHR$(27)+"T Bonjour"+N$ 
ou encore: !A+B/C A D*EXP(E) , 
Z*COS(X) seront des expressions 
parfaitement valides à la seule 
condition que toutes les valeurs 
numériques soient inférieures à 
128. 


2) !@X,Y; : 

Cet ordre Basic a la même syntaxe 
que le ’PRINT de l’Atmos. Si l'on 
tape donc: !@ 18,12;"Cou-Cou I", 
le message s'écrira au milieu de l'é¬ 
cran. On doit respecter 0<X<=40 et 
0<=Y<25 qui sont les limites du 
Minitel. On remarquera que le !@ 
x,0; est une façon très simple 
d'accéder à la ligne d'état de ce 
dernier. Cela est parfois intéressant 
car, comme sur l’ORIC, cette ligne 
n'est pas effacée par un CLS. (!12). 


3) !GET B,GET C% et IREAD 
B,READ C% : 

Nous ne nous attarderons pas sur 
ces routines puisqu’elles corres¬ 
pondent aux routines LM du même 
nom vues précédemment. Toute¬ 
fois attention, elles ne sont utiles 
que pour attendre par exemple le 
choix ou la réponse d'un corres¬ 
pondant. En effet, vu la lenteur 
(toute relative) des routines Basic 
de recherche des spécifications 
des variables, il est impossible 
d'utiliser normalement une boucle 
sur !GET sans perdre de données. 
Même !GET A,GET B,GET C, ... ne 
permet pas la réception de don¬ 
nées successives proches. Le fonc¬ 
tionnement normal de ces com¬ 
mandes est donc bien la sélection 
d'un choix dans un menu. A ce 
propos, il est bon de savoir que les 
touches spéciales du Minitel en¬ 
voient des séquences de 2 codes 
(au lieu d'un pour les caractères 
ASCII). Par exemple: CNX/FIN 
envoie $13,$59 et GUIDE envoie 
$13, $44. Afin de pouvoir les 
identifier avec une seule variable, 
on mettra le bit 7 à 1. Ainsi, si on 
répond GUIDE à un IGET B, on 
trouvera $44+$80 = $C4 dans B. Il 
n’y a plus alors de problèmes si 
votre correspondant n’utilise que 
son clavier (périphérique lent par 
définition). 

M'y a une solution pour utiliser ces 2 
commandes même avec des ser¬ 
veurs (rapides). Il suffit de définir le 
débit de la sortie Minitel pour le 
mettre à 300 voire 75 Bds. (Pour 
cela, voir annexe N° 3). Cela laisse 
alors largement le temps au Basic 
de travailler. Mais mieux vaut, dans 
ces cas, utiliser la fonction ION que 
l'on va voir ci-après. L'intérêt de ces 


fonctions est quand même de 
pouvoir disposer directement .dans 
une variable Basic de la valeur 
numérique reçue. 

4) ION Ad : 

Le rôle principal de cette com¬ 
mande est de réaliser le stockage 
de pages Vidéotex. Il suffit de lui in¬ 
diquer l'adresse où vous voulez la 
ranger en mémoire. La routine ren¬ 
dra la main (ou continuera le pro¬ 
gramme Basic) lorsque le serveur 
n'aura plus rien envoyé pendant 
une seconde, (modifiable à volon¬ 
té). Un DEEK(O) vous indiquera 
alors jusqu'où a été stockée la 
page. Par sécurité, LIMSTK définit 
l’adresse à ne pas dépasser et 
permet d’éviter d'écraser des rou¬ 
tines LM. Par défaut, LIM=$9000. 
Si jamais le stockage d'une page 
atteind LIM, alors la routine s'arrête 
en mettant PEEK(6) à 1, au lieu de 
0, pour vous prévenir. 

5) IFOR Ad TO Af : 

Cette dernière commande permet 
d'envoyer un bloc de données, de 
Ad à Af, sur Minitel. Ad=adresse de 
départ=adresse du 1 er octet à en¬ 
voyer. Af=ad. de fin=ad. du dernier 
octet. Cet ordre est très pratique (et 
rapide) pour envoyer des pages de 
texte ou encore, des pages Vidéo- 
text que vous aurez auparavant 
stockées à l'aide de l'instruction 
ION précédente. On pourra alors 
les consulter à loisir sans pour 
autant se retrouver avec des 
factures astronomiques de la part 
des PTT ! 

REALISATION PRATIQUE : 

S'il n'y a pas de carte interface à 
réaliser, il est quand même néces¬ 
saire de réaliser un câble pour la 
liaison ORIC-Minitel. Il est composé 
de 3 brins, dont un de masse, et 
des deux prises suivantes : 

Côté Minitel : 

Une prise DIN mâle 3 (ou 5) bro¬ 
ches, 180 degrés. 

Côté ORIC : 

Ou bien un connecteur 2x10 
broches pour câble plat comme 
celui prévu sur les câbles impri¬ 
mante, ou bien une liaison fixe par 
3 petites soudures directes dans 
l'ORIC, sur ce port imprimante. 
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Les liaisons à réaliser sont les sui¬ 
vantes : 


Le programme de chargement per¬ 
met de choisir la zone d'implan¬ 



Voir les lignes 400-500 du program¬ 
me de chargement. Toutes les 
vitesses sous- 
multiples de 
2400 sont pos¬ 
sibles. Parfois, il 
pourra être né¬ 
cessaire de modi¬ 
fier légèrement 
la valeur de T0, 
mais les valeurs 
fournies pour le 
Minitel fonction¬ 
nent correcte¬ 
ment. 


Le câble de liaison pourra être un 
câble plat de 3 brins d'une lon¬ 
gueur maximale de Im50 environ, 
ou, mieux car plus sûr, un petit 
câble blindé (masse + 2 brins) 
permettant des liaisons jusqu'à 
2m50 au moins (je n'ai pas essayé 
plus long !). 

Attention : l'inconvénient de ce 
montage est qu'il y a une liaison 
directe Minitel-Via 6522 de l’ORIC. Il 
n'y a donc pas de protections, en 
particulier contre les sauts de 
tension qui se manifestent fréquem¬ 
ment lorsque l'on manipule l'inter¬ 
rupteur du Minitel. Il sera donc plus 
sûr de toujours procéder de la 
manière suivante : 

1) Allumer le Minitel 

2) Effectuer la liaison (Brancher le 
câble) 

3) Mettre enfin l'ORIC sous tension. 
=> Ainsi fait, tout est OK. 

Pour éteindre, c'est exactement la 
démarche inverse : 

Eteindre l'ORIC, débrancher le 
câble (1 côté suffit) et éteindre alors 
le Minitel. 

Conclusion : 

La meilleure solution pour décou¬ 
vrir les possibilités de cette simu¬ 
lation 'soft", est bien sûr de 
l'essayer. Pour cela, vous pourrez 
utiliser le programme 'ATMITEL' ci- 
joint qui permet de mémoriser des 
pages Vidéotex (dans l'ORIC, ou 
sur cassettes, disquettes) et de les 
visualiser ensuite. Son mode d'em¬ 
ploi est très simple et fondé sur un 
menu principal dans lequel on se 
déplace avec la touche <esp>, et 
on sélectionne avec <Return>. Le 
programme est ici présenté en 
VI.1 mais peut facilement être 
adapté VI.0. 


tation de la routine (512 octets), la 
vitesse de transmission et la durée 
de la pause durant laquelle une 
instruction ION ou IREAD pourra 
'patienter'. Ce programme se char¬ 
ge aussi d'adapter la routine à un 
ORIC-1 si nécessaire 
Comme toujours avec les routines 
LM, il est plus que conseillé de 
sauver le programme basic de char¬ 
gement avant d’essayer la routine. 
Le système de contrôle des data 
est assez efficace, mais on ne sait 
jamais... 

Vous aurez tôt fait d'adapter 
'ATMITEL' à vos besoins et de le 
perfectionner grâce aux comman¬ 
des basic précédentes. Sachez 
qu'il est tout à fait possible d'établir 
des liaisons entre deux Minitels 
pour communiquer et/ou envoyer 
des pages Vidéotex. Moyennant 
un petit circuit électronique de 
détection de sonnerie, il est même 
possible de réaliser un serveur 
monovoie à moindre coût. 

Alors tapez ces programmes. Vous 
verrez que, pour la vingtaine de 
francs que coûte le câble, il est 
possible de faire beaucoup de cho¬ 
ses avec un ORIC et un Minitel. 

Annexe 1 

Le réglage de la vitesse de trans¬ 
mission est très simple et repose 
sur le principe décrit dans le para¬ 
graphe 'Emission' vu précédem¬ 
ment. Pour doubler la vitesse; il 
suffit alors de diviser par deux la 
temporisation et, inversement, de 
la doubler pour diminuer le débit. 
On obtient alors : 

Vitesse 75 150 300 600 1200 2400 

T/TO 64 32 16 8 4 2 

TO 40 40 39 39 39 39 


Annexe 2 

Pour la temporisation du READ, il 
suffit de poker en #B21A le 
nombre de fois que l'on veut 
effectuer la boucle de base qui fait 
une seconde environ. 

Annexe 3 

La prise d'échange du Minitel 
fonctionne normalement à 1200 
Bds. On peut toutefois la faire 
fonctionner à 300 et même parfois 
75 Bds. On peut procéder par 
logiciel ou au clavier ; 


-Logiciel ; Envoyer la séquence : 
!#1B,#3A,#6B,X où X vaut #64 
pour 1200 Bd, #52 pour 300 et 
#49 pour 75 Bd. 

-Direct au clavier du Minitel : 
(shift+correction) puis 11 pour 75, 
22 pour 300 et 44 pour 1200. 

REMARQUE: pour ceux qui veu¬ 
lent utiliser les routines en LM : 

Il est impératif d’interdire les inte- 
ruptions de l'ORIC, surtout lors de 
la réception de blocs de données. 
En effet, si une interruption se pro¬ 
duisait après la réception d'un 
caractère, on perdrait très vrai¬ 
semblablement le bit de Start du 
suivant, et tous les caractères à 
suivre seraient perdus ! Pour celà, 
inspirez-vous par exemple de la 
routine ION qui place un SEI pour 
commencer et finit par un CLI. Il 
aurait été possible d'interdire ces 
interruptions pendant toutes la par¬ 
tie 'commande Basic', mais elles 
n'auraient pas été rétablies lors 
d'une sortie sur une erreur de syn¬ 
taxe ou autre, et auraient obligé à 
faire un Reset peu pratique. 
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10 REM——————————— 

11 REM • 

12 REM Simulation 'SOFT’ d’une 

13 REM Liaison Sérié ’RS-232’ 

14 REM (Possibilité liaison Minitel)® 

15 REM 

16 REM Compatible ORIC-1 & ATMOS 

17 REM 

18 REM LEGAL Thierry Octobre 86 = 

19 REM 

22 REM Entrée des Data de ’RS’ 

24 REM- 

26, s 

23 CLips PAPER iZi,:INK 6 : RELEASE SPRINT 
'30 PRINT "> LIAISON RS-232 <" :PRINT 

32 PRINT"Adresse d’implantation de 

34 INPUT"1 a routine : "; AD «DOKE 0,AD 
36 PRINT : IF AD<#9300 THEN HIMEM AD 

33 AD=DEEK<0) : A0=AD : FOR 1=0 T0'63 
40 PRINT 63-1; : FOR J=0 TO 7 :READ A* 

42 A=VAL("#"+A$) : S=(S+A> AND #FFF 
44 POKE AD,A : AD=AD+1 :NEXT :READ SC 
46 IF S=SC THEN NEXT :LG=#1FC:GOTO 50 

43 PRINT"Erreur ligne"104+1 ; ZAP : END 
50 PRINT SPRINT "Contrôles Data Gk." 

52 IF A0< >#B200 THEN GOSUB 200 

54 IF PEEK(#FFDD) THEN GOSUB 300 ’V.0 
56 PING SPRINT SPRINT "Ok."sGOSUB 400 

53 PRINT "Routine ’RS’ implantée" 

60 PRINT "Préparez le Magnéto, puis" 

62 PRINT "Pressez une touche. " s GET Aï 
64 CSAVE "RS.LM",A A0,E A0+LG,AUTO 

66 CALL A0 s GOTO 500 ’ Petite ’Demo’ 

63 s 

100 REM======®======================= 

101 REM Data de la Routine ’RS-232’ 

102 REM- 

103 ’ 

104 DATA 4C, BD, B3, SD, 30, 02, 20,29, #314 

105 DATA B2,20,52,B2,4C,44,B2,A5,#6D1 

106 DATA F7,C9,95,F0,04,A0,00,F0,#BAA 

107 DATA 02,A0,01,20,29,B2,20,7B,#DE3 

108 DATA B2,F0,03,20,AA,B2,4C,44,#194 

109 DATA B2,73,86,F5,84,F6,A2,01,#656 

110 DATA SE,01,03,A2,FE,3E,03,03,#91C 
in' DATA A2, 08,86, F4,06, F3, A2, 10,#CEB 

112 DATA 3E,81,02,60,A2,FF,8E,03,#03E 

113 DATA 03,A4,F6,A6,F5,58,AD,80,#54B 

114 DATA 02,60,0A,4A,90,02,E6,F3,#86C 

115 'DATA 20,65,B2,C6,F4,D0,F4,46,#D67 

116 DATA F3,20,65,B2,33,43,A9,05,#0BF 

117 DATA 6A,6A,6A,6A,3D,00,03,68,#35F 
1fS DATA A0,04,A2,27,CA,D0,FD,33,#7EB 
119 DATA D0,F8,60,A9,00,3D,80,02,#BCB 

119 ’ 

120 DATA 35»F8,35,F9,AD,01,03,F0,#067 

121 DATA FB,AD,01,03,D0,0B,A0,02,#390 

122 DATA 20,72,B2,AE,01,03,CA,D0,#320 

123 DATA 10,C6,F3,D0,EC,C6,F9,D0,#D39 

124 DATA ES,A5,F6,F0,E4,C6,F6,D0,#41C 

125 DATA E0,60,20,70,B2,6E,01,03,#710 

126 DATA 90,02,E6,F3,6A,C6,F4,D0,#C6F 

127 DATA F1,29,7F,SD,30,02» A9,18,#FD8 
123 DATA 66,F3,90,02,09,01,3D,81,#2DB 


DATA 02, 60, C9, B4, D0, 32, 2.0, E2, #6BE 
DATA 00,20,53,E8,84,00,85,01,#923 
DATA A2,73,3E,4D,B2,20,19,B2,#CB5 
DATA A0,00,91,00,AD,31,02,29,#F3F 
DATA 03,F0,0E,E6,00,D0,02 » E6,#2E3 
DATA 01,A5,01,C5,05,90,E6,E6,#6B0 
DATA 06,A2,53,8E,4D,EA,EA,EA,#B49 

9 

DATA C9,C6,D0,25,20,C5,D3,3A,#014 
DATA 09,40,43,20,65,D0,20,C3,#2E2 
DATA D3,3A,09,40,43,A9,1F? 43 » #5E5 
DATA A2,03,63,20,03,B2,CA,D0,#961 
DATA F9,A9,3B,20 » 67,D0,D0,A2,#E07 
DATA 60,C9,SD,D0,35,20,E2,00,#1C4 
DATA 20,53,E3,34,00,35,01,A9,#4D2 
DAh'A C3,20,47, D0,20,53, ES, 84, #3CB 
DAT A 0^,35,03,A0,00,B1,00,20,#AC6 
DATA 03,B2,E6,00,D0,02,E6,01,#E1A 
DATA A5,01,C5,03,90,EF,D0,03,#1DF 
DATA A5,00,C5,02,90,E7,F0,E5,#697 
DATA B0,4D, C9,BE,F0,04,C9,95,#B6D 
DATA D0,24,85,F7,20,E2,00,20,#EFF 
DATA 33,DI,35,B3,34,B9,20,0F,#301 

DAT A B2, C9, 13, D0, 05, 20,0F, B2, #6*45 

, 

DATA 09,30,A3,A9,00,20,40,DF,#95E 
DATA 20,A9,DE,4C,AF,B3,20,17,#CEA 
DATA CF,24,23,10,13,20,D0,D7,#FEF 
DATA AA,F0,14,A0,00,B1,91,20,#39F 
DATA 03,B2,C8» CA,D0,F7,F0,07,#SA4 
DATA 20,CB,D8,3A,20,03,B2,20,#BE6 
DATA ES,00 » C9,2C,00,06,20,E2,#F9B 
DATA 00,4C,CA,B2,60,A9,CA,A0,#3D6 
DATA B2,3D,F5,02,3C,F6,02,A9,#339 
DATA 00,35,06,A9,90,35,05,A9,#B30 
DATA DC » A0 »B3 » 85,91,84,92,A2,#02D 
DATA 21,4C,9B,B3,1F,40,41,1B,#2A3 
DATA 54,20,42,69,70,53,6F,66,#55A 
DATA 74,20,12,51,4C,45,47,41,#76A 
DATA 40,20,54,68,20,33,36,20,#940 
DATA 20,20,00,07,14,55,55,55,#AA6 
s 

REM============================== 

REM Changement d’implantation 
REM- 

REPEAT s READ Aï,B* s A=VAL <"#"+AÏ) 
DOKE A0+A,A0+VAL("#"+BÏ > 

UNTIL Aï="91" 

REPEAT sREAD C,A,B sDOKE 0,A0+C 
POKE A0+A,PEEK(1) 

POKE A0+B,PEEK(0) 

UNTIL C=#1DC sRETURN 

DATA 1,1BD,7,29,A,52,D,44,1C,29 
DATA 1F,7B,24,AF,27,44,59,65,62 
DATA 65,AB,70,DE,19,11C,3,148,3 
DATA 177,F,17E,F,13C,1AF,1A0,3 
DATA 1AD, 3, 1BA,CA,IDA,19B,DB,4D 
DATA FC,40,91,72 

DATA #0CA,#1C0,#1BE 
DATA #1DC,#1D2,#1D0 


129 

130 

131 

132 

133 

134 

135 

135 

136 

137 

133 

139 

140 
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3010 REM============================== 

302 REM Adaptation ORIC-1 

304 REM- 

306 * * 

303 DOKE #B0, DEEK(#E9) ’Restore 300 


310 

312 

314 

316 

318 

320 

322 
324, 
•326 

323 
330 
400 
402 
404 
406 
408 
410 

412 
414 
416 

413 
420 

422 
424 
426 

423 
430 

432 
434 
436 

433 
500 

502 
504 
506 

503 
510 
512 
514 
516 
518 
520 
522 
524 


REPEAT :READ AS, B* 

DOKE A0+VAL( M #"+AS),VAL("#"+BS) 
UNTIL BS="D310" s RETURN 


DATA D2,E790, 
DATA 10F-D30D > 
DATA 13A, CFDE 1 • 
DAfA 136,031*5, 
DATA 196,0715, 


105,D30A, 
124.CFDB, 
13D,E79D, 
139,DEA1, 
1A9,D810 


10C.CFD9 
131,E79D 
170,D0FC 
18F,CE3B 


REM============================== 

REM Modification Vitesses 

REM- 

PRINT 

PRINT "Vitesse de Transmission "; 
INPUT "(75 a 2400) "; V :Y=2400/V 

IF (Y<1 OR Y>32) THEN 410 
IF V<>75+INT<V/75) THEN 410 


POKE A0+#71,Y*2 sPOKE A0+#3F,Y 
PORE A0+#73, 39 : PR INT 

INPUT "Delai pour READ et ON ";D 
IF D<1 OR D>255 THEN ZAP:GOTO 424 
M=INT (D/60) : S=D-60 ; +M : PRINT 
PRINT "Vous avez choisi un delai" 
PRINT " de"M"Minutes et"S"sec." 
POKE A0+#1A,D SPRINT SPRINT 
RETURN 

REM Exemples d’Utilisation. 

REM- 

• 

• 

D=0 s IF PEEK(ttFFDD) THEN D=531 
! 12,10,FOR #ED96-D TO #EDC1-D 
!à 16,13;"Mini tel" 

FOR P=0 TO 7 :P*=CHR*<80+P) 

: 'à 1,P+7;P*+3TR*<P>,32,27,P*.32 
: FOR 1=0 TO 7 :I*=CHR*<64+1) 

: 'à 4*1+6,P+7;27,IS + " es"+IS 

s NEXT s!» » SNEXT 

!à 5,22;"ok ?",17,7 


526 CES : WAIT 99 s PING s END 
523" s 

600 REM-Bip-Bip- 



11 * 

12 ’ *+ ATMITEL ++ VI. 1 10/86 

13 ’ 

14 ’ Utilisation du logiciel de 

15 ’ simulation 'Soft* d’une liaison 

16 ’ sérié pour connexion sur le 

17 ’ service Teletel 

18 ’ via Minitel. LEGAL Th. 

19 -- 

20 ' 

22 CLS sPAPER 0:INK 6 s DOKE #12,#BB80 
24 PRINT CHRS(96)" Bip-Bip","ATMITEL" 
26 DOKE #BB80> #114 : POKE #BB90,3 

23 POKE #BBA3> 4 s DOKE #24E,#30A 
30 IF DEEK(#B200)=#BD4C THEN 34 

32 ILOAD “RS-232.CMD" 'en 1200 Bds 
34 CALL #B200 sHIMEM #2000 sGOTO 214 
100 ’ 

102 ’ Menu Principal des Choix pour 
104 ’ Utilisation du Reseau Teletel 
106 ’ 

103 GOSUB 650 :CLS s PLOT 9,4,2 

110 PLOT 10,4,"* TEMINAL DE MINITEL + 

112 PLOT 13,09,"Enregistrement 

114 PLOT 13,10,"Visualisation 

116 PLOT 13,11," Sauvegarde 

118 PLOT 13.12," Chargement 

120 PLOT 13»13,"Clear Mémoire 

122 PLOT 13,14," Déconnexion 

124 PLOT 13,15,“Sortie du pgrm 

126 ’ 

128 Y=1:REPEAT: IF Y=1 THEN S=1 
130 PLOT 12,Y+8»5 : IF Y=7 THEN S=-l 
132 GET A* s PLOT 12,Y+8,6 sY=Y+S 
134 UNTIL A$=CHR$(13) :Y=Y-S SN=Y 
136 PLOT 12,Y+8,1 s IF N=7 THEN 600 
138 ON N GOSUB 300,400,500,550,200 
140 IF N<6 THEN 100 
142 ’ 

150 CLS :'#1B,#39,#67 :CX=FALSE 
152 PRINT SPRINT "Déconnexion Ok." 

154 PING SWAIT 99 sCALL #B200 
156 GOTO 100 
200 ’ 

202 ’ Remise A Zéro Enregistrements. 
204 ’ 

206 PRINT"Confirmation RAZ Totale ?" 
208 GET AS:IF A«<>“0" THEN RETURN 
210 PRINT "RAZ pages en mémoire ... 
212 SHOOT sWAIT 200 sHIMEM #2000 
214 DF=#2000 sFF=DF :NP=0 :ESC=#1B 
216 POKE HB21A,2 sDOKE DF,0 ’Lgr =0 
218 DOKE 4,#B200:POKE 6,0 ’Fin et Ind 
220 GOTO 100 
300 ’ 

302 ’ Enregistrement Pages Videotexte 
304 ’ 

306 PRINT s IF PEEK(6) THEN 354 

303 IF NOT CX THEN GOSUB 700 

310 PRINT “Enregistrement No”NP+l 
312 !0N FF+2 s IF PEEKI6) THEN 354 
314 L=DEEK(0)-FF s IF L<12 THEN 312 
316 PRINT «CALL #FB10 :CX=TRUE 
318 PRINT "Longueurs“L-2"octets" 


34 











320 PRINT "Reste:"DEEK(4)-DEEK(0); 

322 PRINT "I i br*es . " 

324 PRINT"Validation Enregistrement ? 
326 GET Ai :PRINT : IF Ai="N" THEN 332 
328 DOKE FF,L 'Lgr et nouvelle Fin-F. 
330 FF=DEEK(0) :DOKE FF,0 :NP=NP+1 
332 PRINT"Un autre Enregistrement ?"; 
334 GET A$: IF Ai<>"0" THEN RETURN 
336 CLS :PRINT :&OTO 310 
338 ’ 

350 PRINT :PRINTCHRi(140)+A4 
352 PING :WAIT 200 :RETURN 
354 At="Plus de place !" :GOTO 350 
356 A*="Fichier vide !" :GOTO 350 
400 ’ 

402 ’ Visualisation de Pages Videotxt 
404 ’ 

406 IF DEEK(DF)=0 THEN 356 

403 PRINT "Visualisation": 

410 PRINT"Page (de 1 a"NP: 

412 IF P<0 OR P>NP THEN ZAP 
414 IF P=0 THEN RETURN 'Menu Princip. 
416 PRINT :B=DF :FOR 1=1 TO P 

418 A=B :B=A+DEEK(A) :NEXT 
420 ! € 1,0;ESC,#51,#20,#12»#67 
422 '« 22,0;”Page"+STRi(P)»#0C 
424 IFOR A+2 TO B-l :CALL #FB10 
426 ’ 

428 PRINT “Page ..“;P :PRINT :Ai=KEYi 

430 PRINT "<S>uivante 

432 PRINT "<A>utre page (de 1 a"NP")" 

434 PRINT "<D>e 5 truction 

436 PRINT "<M>enu 

438 PRINT:PRINT "Votre choix ?":PRINT 
440 GET Ai:IF Ai="M“ THEN RETURN 

442 IF Ai="S" THEN P=P+1 :GOTO 412 
444 if Ai="A" THEN 402 

446 IF AiO"D" THEN ZAP :GOTO 440 

443 ’ 

450 ’ Destruction de la Page présente 
452 ’ 

454 PRINT"Confirmation Destruction ?" 
456 ZAP :GET Ai:IF Ai<>"0" THEN 30 
458 LM=#EDC4 :D0KE 12,B :DOKE 14,A 
460 DOKE 16,FF-B :CALL LM :NP=NP-1 
462 FF=FF+A-B sDOKE FF,0 
464 GOTO 402 
500 ’ 

502 ’ Sauvegarde du fichier sur K7/DK 
504 ’ 

506 IF FF=DF THEN 356 'Fichier Vide 

508 INPUT "Nom de fichier "jNi 

510 F=FF+2 :PRINT Ni,HEXi(DF),HEXi(F) 

512 DOKE #2F5,#400 ’ TDOS pour JASMIN 
514 !SAVE Ni+".DAT,DF,F" iPING 

516 PRINT :PRINT "Sauvegarde Ok.“ 

513 PRINT " de";NP;" pages" «WAIT 99 
520 CALL #B208 

522 RETURN 
550 ’ 

* 

552 ’ Chargement d’un fichier sur K7 
554 ’ 

556 PRINT :PRINT "Chargement" 

558 IF FF=DF THEN 566 'Fichier Vide. 
560 ZAP :PRINT "Attention : RAZ !" 


PRINT "Confirmez-vous ?" 

GET Ai : IF Ai<>"0" THEN RETURN 
HIMEM #2000 :DF=#2000 :ESC=#1B 
INPUT"Nom du Fichier Cherche ";Ni 
DOKE #2F5,#400 ’ TDOS pour JASMIN 
!LOAD Ni+".DAT" :PING 
PRINT îPRINT "Enregistrement Ok" 
CALL #B200 :B=DF 

REPEAT :A=B :B=A+DEEK(A) :NP=NP+1 
UNTIL A=B :NP=NP-1 :FF=A 
PRINT NP;" pages stockees":WAIT99 
GOTO 218 

9 

’ Sortie du Programme et Reinit. 

9 

DOKE 632,#BBD0 :DOKE 634,#BBA8 
DOKE 636,1040 :POKE 638,27 
CLS : PAPER 0 : INK 6 :PING 
POKE #BB91,12 :DOKE #2F5,#400 
DOKE #24E,#208 :POKE #26A,11 : END 

9 

'Création ’fenetre’ de 10 lignes 

9 

DOKE 632,#BB80+19*40 

DOKE 634,#BB80+18*40 

DOKE 636,360 :POKE 638,10 

FOR Y=10 TO 17 iPLOT 12,Y,6 :NEXT 

CLS : INK 7 :POKE #26A,2 :RETURN 

9 

' Aide a la Connexion. 

9 

PRINT"Etes-vous déjà connecte sur 
PRINT"un Serveur (O/N) ?" :PRINT 
GET Ai ïIF Ai=“0" THEN RETURN 
IF AiO"N" THEN PING :GOTO 700 
: 

PRINT"Composez le Numéro de tel. 
PRINT"de votre Serveur" 

PRINT:PRINT"Attendez U Porteuse 
PRINT"Puis Tapez <Return>" 

GET Ai: IF AiOCHRi(13) THEN 700 
!#1B,#39,#68 «CX=TRUE :RETURN 


562 

564 


PRINT 

:INPUT")";P 
GOTO 408 


566 

563 

570 

572 

574 
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578 

580 
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584 

600 

602 

604 

606 

603 

610 

612 

614 

650 

652 

654 

656 

658 

660 

662 

664 

700 
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704 
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708 
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712 
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728 
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23 
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24 

PARITE 

FPZ 

♦F 3 

0000 


2 i V 2.1 05/10/34 

B203 




25 

CPTR 
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0000 
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0000 
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MEM 
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0000 
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B 20 3 




23 

DELAY 
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0000 
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0000 
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0000 
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Prénom 


Adresse 


Code Postal .Ville 


Bon de commande et règlement à envoyer à : Editions SORACOM - La Haie de Pan - 35170 BRUZ 


nute... dernière minute... dernière minute... dernière minute... dernière minute... dernière 


NOUVEAUTES : A.T.M de COBRA SOFT 
Voici un nouveau jeu d’arcade pour Oric-1 et Atmos : A.T.K. 

Il s'agit d'un jeu d'action comprenant 4 épreuves : vous devrez combattre en 
l’air, sur terre et dans la mer (d’où le nom...). 

Dans le premier tableau, vous serez aux commandes d'un avion supersonique avec 
lequel vous devrez traverser une nuée de mongolfières ennemies. 

Ensuite, au poste de pilotage d’un char, vous devrez franchir un terrain rocheux 
bombardé par des avions. 

Enfin, la dernière épreuve vous verra commandant d’un sous-marin dans une mer 
infestée de mines et batiments adverses. 

9 niveaux de difficulté, animations sonore et graphique. 1003# langage machine. 

Ce jeu très rapide comblera les amateurs de bons jeux d'arcade ! 

SI vous ne le trouvez pas chez votre revendeur habituel, comwandez-le par courrier 
en écrivant à : 

COBRA SOFT BP 155 - 71104 Chalon-sur-Saône Cedex 

Joignez votre réglement par chèque : 130 F (120 F + 10 F de port). 

Aucun envoi en contre-remboursement. 
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TDK 

Le transfert de disquette 
(jasmin) à cassette 

André GUICHARDON 

L es matériels professionnels sont souvent équipés de 
périphériques spéciaux (et onéreux... ) permettant d'as¬ 
surer le transfert d'un disque dur (ou de disquettes) sur 
une bande magnétique, aux fins d'archivage et de sau¬ 
vegarde. 

D'une façon plus modeste, TDK permet d'envisager la sauve¬ 
garde sur cassette de vos disquettes les plus chères (sans 
jeu de mots !). 


Ce programme en langage ma¬ 
chine assure la copie des fi¬ 
chiers d'une disquette sur une 
cassette de façon autonome, 
en laissant un blanc d'environ 3 
secondes entre 2 fichiers. La 
seule intervention consistant à 
stopper le déroulement du pro¬ 
gramme en appuyant sur la bar¬ 
re d'espace après le ping pour 
permettre le changement ou le 
retournement de la cassette. 
L’appui sur une autre touche le 
fait repartir. Il copie en lent ou 
en rapide, mais seul le mode ra¬ 
pide est intéressant pour les 
longs fichiers. Il permet la copie 
de tout fichier situé en RAM à 
partir de l'adresse #500, mais éli¬ 
mine systématiquement les fi¬ 
chiers Data, Ary et Sys. 

Sa mise en place s'effectue en 
2 temps. 

1er temps : un chargeur basic 
place le langage machine de 
#A000 et #A187 et sélectionne 
la vitesse de recopie. 

2e temps : le langage machine 
assure la mise en overlay, puis 
le transfert des différents S/P à 
leurs emplacements définitifs. 
Seule la partie de #A052 et 


#A06C se trouve à son em¬ 
placement définitif. Cette partie 
! . est utilisée au début et sera pro¬ 
bablement détruite pendant les 
transferts de fichiers, mais sans 
conséquence pour la suite des 
opérations. 

Un S/P est placé dans une par¬ 
tie libre du dos et un autre dans 
la zone de messages consti¬ 
tuant l'affichage du Logo Tran. 
Un JMP $ D583 placé en D567 
permet de supprimer cet affi¬ 
chage. 

Le catalogue placé normale¬ 
ment dans le dos en #F200 est 
inutilisable dans ce programme. 
Il faut utiliser un catalogue trans¬ 
féré à une autre adresse du 
dos, car les premiers essais utili¬ 
sant le catalogue à l'adresse 
habituelle ont montré que mê¬ 
me si on plaçait un autre sec¬ 
teur du catalogue sur cet empla¬ 
cement, le Jasmin rechargeait 
toujours le 1er secteur cata¬ 
logue avant de rendre la main, 
ce qui fait que le programme de 
recopie bouclait sans fin avec 
les 14 titres du 1er secteur 
catalogue et le 1er titre du 
second secteur. 


Il a fallu pas mal de temps pour 
découvrir la raison de cette parti¬ 
cularité qui empêchait de reco¬ 
pier plus de 15 titres. 

#AOOO/AOOA 
Passage en Overlay 
#A00C/A01A 

Mise en place du JMP suppri¬ 
mant l'affichage de TRAN... 
#A01C/A026 

Mise en place d'un S/P de 

#4EDà#4FF 

#A028/A034 

Mise en place d'un S/P de 110 

à#14B 

#A036/A042 

Mise en place d'un S/P de 

#E1 DE à#E23C 
#A044/A050 

Mise en place d'un S/P de 

#E352 à #E3A8 
#A052/AO6C 

Début du programme de reco¬ 
pie. Initialisation pour la lecture 
du 1 er secteur du catalogue. 
#E1DE/#E1EB 

Lecture du catalogue et 

transfert en #FCOO 
#E1EC/#E1EF 

Initialisation pour chargement 
du 1er fichier 


38 
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rlr J X PAROLE INFORMATIQUE 

Centre commercial La Gantière 
Rue Fontaine du Bac 63000 Clermont-Ferrand 
Tél.: 73.26.21.04 


Disponible chez votre revendeur ou: 

TJ 


#E1F0/#E1FB 

Tests de la 1ère lettre pour 
éliminer ARY et DATA 
#E1 FC/#E204 

Tests de la 2e lettre pour 

éliminer SYS 

#E205/#E200 

Teste si le fichier est du basic. 
Sinon place le code de LM 
dans le pointeur. Si oui place le 
code du basic dans ce poin¬ 
teur. 

#E20E/#E215 

Test si plus de titres dans le 
catalogue (va à fin #422) 
#E216/#E21C 

Test si titre supprimé du cata¬ 
logue 

#E21 D/#E222 

Suite du programme suivant ré¬ 
sultat des tests cités. 
#E223/#E229 

Calculs pour passer au titre sui¬ 
vant et initialisation 
#E22A/#E23C 

Initialisation pour lecture sec¬ 
teur catal. suivant. Si plus de 
titres, va à fin (422) 

#E352/#E35B 

Ecrit LOAD - dans le tampon du 
clavier 


#35C/#E36E 

Transfert du titre du fichier dans 
le tampon du clavier et dans le 
tampon de sauvegarde K7. 
#E36F/#E37A 

Place " et 00 à la fin des tam¬ 
pons titres 
#E37B/#E383 

Initialisation et transfert du 
fichier dans la RAM 
#E384/#E39D 

Incréments adresse de début si 
le fichier est en basic (début 
#500 pour Jasmin et #501 pour 
Oric) et transfert des adresses 
de début et de fin de fichier 
dans les différents pointeurs 
programmes 
#E39F/#E3A1 

va au S/P de sauvegarde sur 
K7. 

#E3A2/#E3A7 

LOAD" 

#110/#112 

Appel du S/P de sortie overlay 
#113/#122 

Appel du S/P pour enregistre¬ 
ment K7 
#123/# 126 

Fin d'enregistrement signalé 
par un ping. On dispose alors 


de 3 secondes pour demander 

une pause 

#127/#12B 

Mise en marche du moteur ma¬ 
gnéto pour assurer le blanc en¬ 
tre 2 enregistrements 
#12E/#138 

Temporisation (les interruptions 
sont autorisées) 

#139/#13D 

Arrêt du moteur de magnéto 
#13E/#144 

Teste si une pause a été de¬ 
mandée. Si oui, cette partie 
boucle jusqu’à ce qu'un appui 
sur une autre touche fasse 
changer la valeur en #20F 
#145/#14A 

Appel du S/P entrée en overlay 

et suite 

#4ED/#4EB 

Appel du dos pour éxécution 
de la fonction placée dans le 
tampon du clavier. 

#4F4/#4FF 
Entrée en overlay 
#422 

Cette partie du dos est utilisée 
comme un S/P de sortie overlay 
ou comme fin si l'accès est un 
JMP422 
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* ***** * ************* * * 
* * 

* TDK * 

* par * 

* André Guichardon * 

* * 
********************** 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM Ce programme assure le transfert des programmes de disguette a 
REM Les -fichiers SYS,ARY,DAT sontvolontairement ignares 
REM Une temporisation en fin de sauvegarde assure un blanc 
REM de 3 secondes entre 2 fichiers. 

REM Un appui sur SPACE pendant la temporisation declenche une pause 
REM pour permettre le changement ou le retournement de la cassette. 
REM Un appui sur une autre touche met fin a la pause. 

CLS: PRINT : PR INT: PRINT" VITESSE DE SAUVEGARDE (S/F)":6ETA4 

IF as="F” THEN P0KE#24D,0:G0T0200 
IF At="S" THEN P0KE#24D,1:GQT0200 
PING:GOTO160 

FOR A=#A000 Tü #A187:READ B:P0KE A,B:NEXT:P0KE#2AD,0 
DATA «78,«A9,«7F,#8D,#E,#3,#A9,#1 

#8D,«FA,«3,«EA,«A9,#4C,«A2,«83 
«A0,#D5,#8D,«67,«D5,#8E, «68, «D5 
#BC,«69,«D5,«EA,«BD,#B4,«AO,«9D 
«ED,«4,«ES,#E0,#13,«DO,#F5,«EA 
«A2,#0,«BD,«70,«AO,«9D,«10,#1 
#EB,#E0,«42,«DO,«F5,«EA, #A2, #0 
«BD,«CA,«AO,«9D,«DE,«E1,#EB,«EO 
«5F,«DO,«F5,«EA,#A2,#0,«BD,#31 
«Al,#9D,#52,#E3,#E8,«EO,#58,«DO 
#F5, «EA,#A9,#2,#8D,«A,«CO,#A9 
« 1,«BD,#7,«CO,#A9,#0,#8D,#8 
«CO,«A9,«FC,«85,#73,#A9,#14,#8D 
#9,«CO,#4C,«DE,«El,«EA,«EA,«EA 
#20,#22,#4,#8,#20,#6A,#E7,#20 
#85,#E5,#20,#7,#E6,#20,#2E,#E6 
DATA #20,#3D,#E9,#20,#9F,«FA,#28,#A9 
DATA #7,#8D,«2,#3,#A9,#2,#8D,#76 
#2,#8D,#77,#2,«AD,#77,#2,#D0 
#FB,#A9,#F7,#8D,#2,#3,#AD,#DF 
#2,#C9,«AO,#F0,#F9,#20,#F4,#4 
#4C,#23,#E2,«EA,«EA,«EA, «EA, «EA 
«EA,#EA,«EA,«EA,#20,#0,#4,#20 
#F4,#4,#60,#78,#A9,#7F,#8D,#E 
#3,#A9,#1,#8D,#FA,#3,#60,#EA 
«EA,«EA,#20,#4E,#C2,«AO,#6,#B9 
#0,#FE,#99,#0,«FC,#C8,«DO,#F7 
#A9, #4, «85,#72,«AO,#C,«B1,#72 
#C9,#41,«FO,#2B,#C9,#44,«FO,#27 
#C8,#A2,#80,#B1,#72,#C9,#59,«FO 
#1E,#C9,#41,#D0,#2,#A2,#0,#8E 
#AE,#2,#A0,#1,#B1,#72,#C9,#12 
#B0,#A,#88,#B1,#72,#C9,#52,#B0 
DATA #6,#4C,#52,#E3,#4C,#22,#4,#18 
DATA #A5,#72,#69,#12,«DO,#C4,#AD,#3 
DATA «FC,#8D,«A,ttCO,«FO,#EE,#30,#EC 
DATA «AD,#2,#FC,#8D,#9,«CO,#4C,«DE 
DATA «El,«EA,«EA,«EA,«EA,«EA,«EA,«EA 
DATA «EA,#A2,#5,«BD,«Al,#E3,#95,#34 
DATA «CA,#D0,#FB,#A0,#2,#C8,#B1,#72 
DATA #C9,#20,«FO,#F9,#9D,#7F,#2,#95 
#3A,«EB,«CO,#E,«DO,«EF,#A9,«22 
#95,#3A,«A9,#0,#9D,#7F,#2,#E8 
#95,#3A,#85,«EA,#A9,#35,#85,#E9 
#20,#ED,#4,ttAC,#AE,#2,«DO,#3 
#EE,#8D,«4,#A2,#0,«BD,#8D,#4 
#9D,«A9,#2,#C0,#80,#F0,#2,#95 
#9A,#E8,«EO,#4,«DO,«EF,#4C,#10 
#1 ,«4C,«4F,#41,#44,#22,«O,#EA 
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ATMOS A PMrIS 


5060 PRINT : PRINT : PRIN T: PRIN T : PRINTCHR 
$(134);" Voulez—vous l'acheter ? (Q/ 

N)":P9*=KEY* 

5070 GETE*:IFE*<>"o"ANDEfcO"n"THEN507 

U 

5080 lFE$="n"THENRETURN 
5090 IFL(I)<V( K7. ( 1 ) ) THENPRI NT : F'R 1 NT : P 
RINTCHR*(27)"DVous n'avez pas assez d' 
argent":G0TQ5140 
5100 L ( I ) =L ( I ) -V (K7. ( I ) ) 

5110 F'RINT : F’RINT : PRINTCHR* (27) "DNouve 
au cap 1 ta1 :";L(I) 

5120 PL0T30,20,1 :PRINTQ31,20;"GUI 
5130 DS ( K7. < I ) ) =P I : P (K7. ( I ) ) = I 
5140 WAITW:RETURN 

6000 REM-CALCUL LOYER DES GARES 

6010 FDRCV=5T035STEP10 
6020 F0RBN=5T035STEF10 
6030 IFCV>=BNTHEN6050 

6040 1FP(CV)=P(BN)ANDP(CV)< >0ANDP(BN) 
>0TUENTN(CV,O)=5000s TN(BN,O)=5000 
6050 NEXTBN 
6060 NEXTCV 

6070 IFP < 5 > =P <15 >ANDP(5)=P(25)ANDP(15 
)=P(25)THENGQSUB6470 
6080 IFP(5)=P(15)ANDP(5)=P(35)ANDP(15 
)=P(35)THENG0SUB6480 
6090 IFP(5)=P(25)ANDP(5)=P(35)ANDP(25 
) =F' ( 35) THENG0SUB6490 
6100 IFP(15)=P(25)ANDP(15)=P(35)ANDP( 
25)=P(35)THENG0SUB6500 
6110 IFP(5)=P(15)ANDP(5)=P(25)ANDP(5) 
=F' ( 35) ANDP ( 15 ) =P ( 35 ) THENG0SUB6510 
6120 REM —loyer double pour collectio 
n entière 

6130 IFP(1)=P(3)THENGOSUB6300 
6140 I FP ( 6 ) =P ( 8 ) ANDP ( 6 ) =P ( 9 ) ANDP ( 8 ) =F' 
(9)THENG0SUB631O 

6150 IFP(11)=P(13)ANDP(11)=P(14)ANDP( 
13)=P(14)THENG0SUB6320 
6160 IFP <16)=P(18)ANDP(16)=P(19)ANDP( 
18)=P(19)THENG0SUB6330 
6170 IFP <21)=P(23)ANDP(21)=P <24)ANDP( 
23) =P(24) THENGCJSUB6340 
6180 IFP(26)=P < 27)ANDP(26)=P(29)ANDP( 
27)=P(29)THENGGSUB6350 
6190 IFP <31)=P(32)ANDP(31)=P(34)ANDP < 
32)=P(34)THENG0SUB6360 
6200 IFP(37)=P(39)THENG0SUB6370 
6210 RETURN 

6300 IFP(1)=00RP(3)=OTHENRETURN 
6302 IFM ( 1 ) OOORM (3) O0THEN6307 
6305 TN(1,0)=400:TN(3,O)=800:RETURN 
6307 TN(1,0)=200:TN(3,0)=400:RETURN 
6310 IFP(6)=00RP(8)=00RP(9)=OTHENRETU 
RN 

6312 IFM (6) OOORM (8) OOORM (9) OOTHEN6 
317 

6315 TN(6,0)=1200:TN(8,0)=1200:TN(9,0 
)=1600:RETURN 

6317 TN(6,0)=600:TN(8,O)=600:TN(9,0)= 
800:RETURN 

6320 IFP(11)=00RP(13)=00RP(14)=0 THENR 
ETURN 

6322 IFM (11) OOORM (13) OOORM ( 14) O0TH 


EN6327 

6325 TN(11,0)=2000:TN(13,0)=2000:TN(1 
4,0)=2400:RETURN 

6327 TN(11,0)=1000:TN(13,O)=1000:TN(1 
4,O)=1200:RETURN 

6330 IFP(16)=OORP(18)=00RP(19)=0THENR 
ETURN 

6332 IFM ( 16) OOORM ( 18) OOORM (19) OOTH 
EN6337 

6335 TN(16,0)=2800:TN(18,O)=2800:TN ( 1 
9,0)=3200:RETURN 

6337 TN(16,0)=1400:TN(18,0)=1400:TN(1 
9,O)=1600:RETURN 

6340 IFP (21)=00RP(23)=00RP(24)=0THENR 
ETURN 

6342 IFM (21 ) OOORM (23) OOORM (24) OOTH 
EN6347 

6345 TN(21,0)=3600:TN <23,0)=3600:TN 02 
4,0)=4000:RETURN 

6347 TN(21,0)=1800:TN(23,0)=1800:TN(2 
4,0)=2000:RETURN 

6350 IFP(26)=00RP(27)=00RP(29)=0 THENR 
ETURN 

6352 IFM (26) OOORM (27) OOORM (29) OOTH 
EN6357 

6355 TN(26,0)=4400:TN<27,0)=4400:TN(2 
9,0)=4800:RETURN 

6357 TN(26,0)=2200:TN(27,0)=2200:TN(2 
9,0)=2400:RETURN 

6360 IFP <31)=00RP(32)=00RP(34)=0THENR 
ETURN 

6362 IFM (31 ) OOORM (32) OOORM (34) OOTH 
EN6367 

6365 TN(31,0)=5200:TN(32,0)=5200:TN(3 
4,0)=5600:RETURN 

6367 TN(31,0)=2600:TN <32,0)=2600:TN(3 
4,O)=2800:RETURN 

6370 IFP(37)=00RP(39)=OTHENRETURN 

6372 IFM (37) OOORM (39) OOTHEN6377 

6375 TN(37,0)= 7000:TN(39,0)=10000:RET 
URN 

6377 TN(37,0)=3500:TN < 39,O)=5000: RETU 
RN 

6470 IFP(5)=00RP(15)=OORP(25)=0THENRE 
TURN 

64 75 TN(5,0 > =10000:TN(15,O)=10000:TN( 
25,0)=10000:RETURN 

6480 IFP(5)=00RP(15)=00RP(35)=0THENRE 
TURN 

6485 TN(5,0)=10000:TN(15,0)=10000:TN( 
35,0)=10000:RETURN 

6490 IFP(5)=00RP(25)=00RP(35)=0THENRE 
TURN 

6495 TN(5,0)=10000:TN(25,0)=10000: TN( 
35,0)=10000:RETURN 

6500 IFP(15)=00RP(25)=0QRP(35)=0THENR 
ETURN 

6505 TN(15,0)=10000:TN(25,0)=10000:TN 
(35,O)=10000:RETURN 

6510 IFP(5)=00RP(15)=00RP(25)=00RP(35 
)=OTHENRETURN 

6520 TN(5,0)=20000:TN(15,0)=20000:TN( 
25,0)=20000:TN <35,0)=20000:RETURN 

6800 REM-allez en prison- 

6810 PR I NT : PR I NT : PR I NT : PR I NT : F'R INTCHR 





$ (4) 

6820 PRINTCHR*(27);"A";CHR*(27);"N 
Vous etes en prison INK2 

6830 PRINT:PR1NT: PRINT: PRIN T: PR1NTCHR 
*(4); TAB(3);"Pour sortir plusieurs sol 
ut ions :" 

6840 PR INT : PRINTTAB(6);"* 1 : Payer 5 
000 -francs" 

6850 PRINT: PRINTTAB(6);"* 2 : Autres" 
6860 WAITW: ERT'*=KEY* 

6870 IFERT*="1"THENL(I)=L(I)-5000:PR I 
NT:PR INT:PRINT"Nouveau capital";L(I);" 
■francs" : G0T06999 

6880 IFERT *=""THENERT*="1":G0T06870EL 
SECLS 

6890 PRINT : PRINT: PR INT : PR INT : PRINT" 
L'ordinateur va tirer 1 nombre" 

6900 PR INT: PR INT" Sx c est le :": PR 
INT:PRINT 
6910 PRINT:PRINT" 
e: 5000 -francs" 

6920 PRINT:PRINT" 
s évadés" 

6930 PRINT:PRINT" 
un joueur désigné 
qui paiera" 

6940 KZ7.=RND ( 1 ) *3+ 1 
6950 PRINT:PRINT:PRINT:PRINTCHR*(4) ;C 
HR* (27) ; "A";CHR* (27) ; "N Choix :";KZ7.;C 
HR*(4) 

6960 IFKZ7.= 1 THENL ( I ) =L ( I ) -5000: PRINT: 
PRINT : PR INT "Nouveau capital : " ; L ( I ) ; " -f 
rancs":GGT06999 
6970 IFKZ7.=2THEN6999 

6980 C7.=RND ( 1 ) *N+1 : PR I NT : PR I NT : PR IN T : 
PRINTCHR*(27);"E";CHR*(27);"LCe sera " 
; :P0KE49000,5 

6990 PRINTP* (C7.) ; " qui paiera 5000 fr 
anc s" : L ( C/T) =L ( C7. ) -5000: P0KE49001,12 
6999 WA IT 1000 : CLS : K7. ( I ) = 10 : INK5 : RETUR 
N 

9990 DATA82,101,97,108,105,115,101,32 
,112,97,114,32,67,104, 114,105,115, 116 
9995 DATAI 11,112, 104,101,32,82,69,89 

10000 DATABou1evard de Be11eviI1e,Caî 
sse de Communauté,Rue Lecourbe 

10001 DATAImpot sur le revenu,Gare Mo 
ntparnasse,Rue de Vaugirard,Chance 

10002 DATARue des Cource11 es,Avenue d 
e la Eepub1ique,Simple visite 

10003 DATABoulevard de la Villette,Di 
stribution d'électricité 

10004 DATAAvenue de Neuilïy,Rue de F'a 
radis,Bare de Lyon,Avenue Mozart 

10005 DATACaisse de communauté,Boulev 
ard Saint-Michel, Place F'igale 

10006 DATAF'arc gratuit, Avenue Matigno 
n,Chance,Boulevard Malesherbes 

10007 DATAAvenue Henri-Martin,Gare du 
nord,Faubourg Sain t-Honore 

10008 DATAF’lace la Bourse, Distributio 
n des eaux,Rue Lafayette,en prison 

10009 DATAAvenue de Breteui1,Avenue F 
oc:h. Caisse de communauté 

10010 DATABou1evard des Capucines,Gar 


e Saint-Lazare,Chance 

10011 DATAAvenue des Champs-Elysees,I 
mpots supplementaires,Rue de la Paix 

10012 DATA6000, 0, 6000,0, 20000, 10000, 0 
,10000,12000,0,14000,15000,14000,16000 

10013 DATA20000,18000,0,18000,20000,0 
,22000,0,22000,24000,20000,26000,26000 

10014 DAT A15000,28000,0,30000,30000,0 
,32000,20000,0,35000,0,40000 

10015 REM -LOVER- 

10016 DATA200,0, 400,0, 2500,600, 0, 600, 
800,0,1000,0,1000,1200,2500,1400,0, 140 
0 

10017 DATAI600,0,1800,0,1800,2000,250 
0,2200,2200,0,2400,0,2600,2600,0,2800 

10018 DATA2500,0,3500,0,5000 

10019 REM -loyer avec 1 maison 

10020 DATAI000,0,2000,0,0,3000,0,3000 
,4000,0,5000,0,5000,6000,0,7000,0,7000 

10021 DATA800Û,0,9000,0,9000,10000,0, 

11000, 11000,0,12000,0,13000,13000,0,15 
000 

10022 DATA0,0,17500,0,20000 

10023 REM—loyer avec 2 maisons 

10024 DAT A3000,0,6000,0,0,9000,0,9000 
,10000,0,15000,0,15000,18000,0,20000,0 

10025 DA TA20000, 22000 ,0,25000,0,25000 
, 30000,0,33000, 33000,0,36000, 0, 39000 

10026 DA TA39000,0,45000,0,0,50000,0,6 
0000 

10027 REM—loyer avec 3 maisons 

10028 DATA9000,0,18000,0,0,27000,0,27 
000,30000,0,45000,O,45000,50000,0,5500 
0 

10029 DA TAO,55000,60000,0,70000,0,700 
00,75000,0,80000,80000,O,85000,0,90000 

10030 DATA90000,0,100000,0,0,110000,0 
,140000 

10031 REM—loyer avec 4 maisons 

10032 DATAI6000,0,32000,0,0,40000,0,4 
OOOO,45000,0,62500,0,62500,70000,0,750 
00 

10033 DATAO,75000,80000,0,87500,0,875 
00,92500,O,97500,97500,O,102500,0 

10034 DATA110000,110000,0,120000,0,0, 
130000,0,170000 

10035 REM—loyer avec hôtels 

10036 DATA25000,O,45000,0,0,55000,0,5 
5000,60000,0,75000,0,75000,90000,O 

10037 DATA95000,0,95000,100000,0,1050 
00,O,105000,110000,0,115000,115000,0 

10038 DATA120000,0,127500,127500,0,14 
0000, (J) , 0, 150000, 0,200000 

10039 REM-prix des maisons- 

10040 DATA5000,0,5000,0,0,5000,O,5000 
,5000,0,10000,0,10000,10000,0,10000,0 

10050 DATAI0000,10000,0,15000,O,15000 
,15000,0,15000,15000,0,15000,0,20000 

10060 DATA20000,0,20000,0,0,20000,0,2 


0000 

10070 REM--fin- 

10566 REM -sous programme pour tra 


cer le plan du jeu 

10567 V*="Vous etes a la "+A* <K*/. ( I ) ) : 
RETURN 


1 : vous pay 

2 : vous vou 

3 : ce sera 

au choix 
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44150 CURSET184,117,1 :RETURN 
44160 CURSET184,135,1iRETURN 
44170 CURSET184,153, 1 :RETURN 
44180 CURSET184,171,1:RETURN 
44190 CURSET184,148,1 :RETURN 
44200 CURSET207, 148,1 sRETURN 
44210 CURSET189,148,1 sRETURN 
44220 CURSET171,148,1:RETURN 
44230 CURSET153,148,1:RETURN 
44240 CURSET135,148,1:RETURN 
44250 CURSET117, 148,1 :RETURN 
44260 CURSET99,148,1:RETURN 
44270 CURSET81,148,1:RETURN 
44280 CURSET63, 148,1 sRETURN 
44290 RETURN 

44300 CURSET76,171,1 :RETURN 
44310 CURSET76,153,1:RETURN 
44320 CURSET76, 135, 1 sRETURN 
44330 CURSET76,117,1:RETURN 
CURSET76,99, 1 :RETURN 
CURSET76, 81,1: RETURN 
CURSET76,63,1:RETURN 
CURSET76,45,1 :RETURN 
CURSET76,45, 1 :RETURN 

REM-test si on 

entiere 

IF K 7. < I ) = 10RK7. < I ) =3THEN45200 
IF K X ( I ) =60RK7. < I ) =80RK7. ( I ) =9THËN 


a la co11 


44340 
44350 
44360 
4 4370 
44380 
45000 
ection 
45010 
45020 
45300 

45030 IFK7. ( I ) = 110RK7. < I ) = 130RK7. ( I ) = 1 4T 
HEN45400 

45040 IF K 7. ( I ) = 160RK7. ( I ) = 18URK7. U ) = 19 T 
HEN45500 

45050 IFK7. < I ) =210RK7. ( I ) =230RK7. ( I ) =24T 
HEN45600 

45060 IFK7. ( I ) =260RK7. ( I ) -270RK7. ( I ) =29T 
HEN45700 

45070 IFK7. ( I ) =31ÜRK7. ( I ) =320RK7. ( 1 ) =34 T 
HEN45800 

45080 IFK7. < I ) =370RK7. ( I ) =39THEN45900 
45200 1 FF' < 1 ) = IANDP ( 3 ) = 1 T HEN60180ELSER 
ETURN 


45300 IFF(6)=IANDP(8)=IANDP(9)=1THEN6 
0180ELSERETURN 

45400 IFP <11)=IANDP(13)=IANDP(14)=I TH 
EN60180ELSERETURN 

45500 IFP(16)=1ANDP(18)=IANDP(19)=1 TH 
EN6018ÛELSERETURN 

45600 IFP(21)=IANDP(23)=IANDP(24)=ITH 
EN60180ELSERETURN 

45 700 IFP(26)=IANDP(27)=IANDP(29)=I TH 
EN60180ELSERETURN 

45800 IFP(31) = IANDP(32)=IANDP(34)=I TH 
EN601BOELSERETURN 

45900 IFP(37)=IANDP(39)=ITHEN60180ELS 


ERETURN 

48000 REM présentation 
48010 HIRES: F RINTCHR*(17)tINK7 
48020 CURSET24+C,50,l:DRAW-4,4, 1 : DRAW 
0,21,1:CURMOVO,-7,1 :DRAW17,0, 1 :CURMOVO 
, 7, 1 

48030 DRAWO,-21,1:DRAW-4,-4,1:DRAW-9, 
0,1:GOT048040+80 

48040 CURSET40,50, 1:DRAW17,0, 1 :CURMÜV 
-9,0,1:DRAWO,25,1 


48050 CURSET60, 75,1:DRAWO,-25, 1 :DRAW8 
,10,1:DRAW1,O,1 :DRAW8,-10,1 :DRAWO,25, 1 
48060 CURSET84,50,1:DRAW9,0,1:DRAW4,4 
,1 :DRAWO,17,1:DRAW-4,4,1:DRAW-9,0,1 
48070 DRAW-4,-4, 1 :DRAWO,-17,1 :DRAW4,- 
4, 1 

48080 CURSET117+D,50,1:DRAW-13,0, 1 : DR 
AW-4,4,1 :DRAWO,4,1 :DRAW4,4, 1 :DRAW9,0, 1 
48090 DRAW4,4,1:DRAWO,5,1:DRAW-4,4,1: 
DRAW-13,0,1:IFD=103THEN4B1B0 
48100 C= 100 : G0= 70: GO7*048020 
48110 CURSET140+E,75, 1:DRAWO,-21,1 : DR 
AW4,-4, 1 :DRAW9,0, 1:DRAW4,4, 1:DRAW0,6, 1 
48120 DRAW-4,4, 1 :DRAW-12,0,1 :IFE=40TH 
EN48150 

48130 C=140: 60=100:GÜT048020 
48140 E=40:G0T048110 
48150 CURM0V9,0,1 : DRAW7,11,1 
48160 CURSET200,50,1:DRAWO,25,1 
48170 D=103:GOT048080 


48180 CURSEI6,48,O:FILL30,1,20 
48185 CURSET60,185,0:FILL9,1,1:CURSET 
70,185,0 
48190 REPEAT 

48200 READD:CHARD,O, 1 :CURM006,0,0 
48210 UNTILD=89 

48220 F0RI=1T0100:MUSIC1,3,INT((RND(1 
>*U>+1) , 12: WA IT INT ( (RND ( 1 ) *8)+6) : NEX T 
48230 WAIT50: SHOOT: PING: TEXT : F'RINTCHR 
* ( 17) 

48250 E*="ATMGSAF'ARIS" 

48260 Ft="ABCDEFABCDEF" 

48270 FOR1=1TOLEN(E*) 

48280 F=ASC(MID*(F*,1,l))-64 

48290 FORE1*2+48010,F 

48300 POREI+2+48011,ASC < MID*(E*, I> > 

48310 WAI T 10 

48320 PLAVO,7,1,100 

48330 NEX.T 

48340 INR1 

48350 F'RINT: PRINT" L’idee du jeu est 
de vendre,d'acheter" 

48360 PRINT"ou de louer des propriété 
s d ' une tnan i e" 


48370 F’RINT"re prof i tab 1 e, de telle so 
rte que l'un" 

48380 PRINT"des joueurs devienne le p 
lus riche." 

48390 PRINT:PRINT" Le jeu ATMOSAFARI 
S est un tableau" 

48400 FRINT"divise en cases represent 
ant des ter-" 

48410 PRINT"rains a batir,des gares S 
NCF,des en-" 

48420 FR INT"treprises de service publ 
ic, des re-" 

48430 F'RINT"compenses ou pénalités, su 


r lesquelles" 

48440 PRINT"les joueurs doivent se de 
placer." 

48450 PRINT" Vous jouerez dans l'ord 
re ou vous " 

48460 PRINT"entres les prénoms des pa 
rticipants." 

48470 PRINT"Chaque joueur dispose de 
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150000 Frs" 

48480 PRINP'et devra acquérir selon s 
es moyens des" 

48490 PRINT"terrains.Si vous tombez s 
ur une case" 

48500 PRINT"‘chance’ ou 'caisse de co 
mmunaute ' " 

48510 PRINT"vous recevrez ou vous ver 
serez une som" 

48520 PRINT"me d'argent." 

48530 PRINT" Durant la partie vous r 
epondrez aux" 

48540 PRINT"questions posées par O ou 
N. " 

48550 PRINT0O,25;CHR* <27)"Q"CHR*(27)" 
©Appuyez sur une touche pour continuer 

(I 

48560 T*=KEY*:GETT*:CLS:INK2 
48570 PRINT:PRINT" De plus vous aure 
z le droit d * u t i — " 

48500 PRINT"liser plusieurs autres to 
uches : A, D, F , L, F’, T, V" 

48590 PRINT:FRINT"-"CHR*(27)"E A "CHR 
*<27)"B: Cette touche permet d'échangé 
r" 

48600 PRINT" entre joueurs des terr 
ains, mais" 

48610 PRINT" seulement lorsque tous 
les terrains" 

48620 PRINT" sont vendus." 

48630 PRINT:PRINT"—"CHRt(27)"E P "CHR 
*<27)"B: Cette touche permet de voir o 
u " 

48640 PRINT" vous vous trouvez sur 
le jeu." 

48650 PRINT:PRINT"—"CHR*(27)"E V "CHR 
*(27)"B: Cette touche permet de vendre 

II 

48660 PRINT" un de vos terrains au 
cas ou vous" 

48670 FRINT" n auriez plus d'argent 
' • • • " 

48680 PRINT:FRINT"-"CHR*(27)"E F "CHR 
*(27)"B: Cette touche permet d arrêter 

II 


48800 PRINT" liste de toutes les ca 
ses avec everi" 

48810 PRINT" tueilement le nom de c 
elui qui les" 

48820 PRINT" a achetées." 

48830 PRINT: PRINT"-"CHR*(27)"A S "CHR 
*(27)"C: Cette touche permet de sauve- 

48840 PRINT" garder les pricipales 
mémoires pour" 

48850 PRINT" recommencer la partie 
ulterieure" 

48860 PRINT" ment." 

48920 PRINT00,25;CHR*(27)"S"CHR*(27)" 
©Appuyez sur une touche pour continuer 

II 

48930 E*=KEY*:GETE*:CLS:INK1 

48940 F OR1=48037T04801OSTEP—1 

48950 POLE1,32 

48960 PLAYO,7,2,100 

48970 WAI T 10 

48980 NEXT 

48990 REM - Reprise d'une ancienne 

partie ??? 

49000 PRINT: PRINT: PRINT: PRINT: PRINT: P 
RINT :PRINT" VOULEZ-VOUS REPRENDRE UNE 
ANCIENNE PARTIE ?" 

49010 GETT* 

49020 IFT *="0"0RT*="o"THEN49040 
49030 IF T * 7"N"ANDT *< >"n"THEN4901OELS 
E49999 
49040 CLS 

49050 PRINT:PRINT:PRINT" RELECT 

URE" 

49060 PR IN T : F’R I NT " Reprenez la casset 
te ou vous avez en" 

49070 PRINT"registrez ces données et 
mettez la " 

49080 PRINT"dans le magnéto , puis ap 
puyez sur" 

49090 PRINT" ' PLAY' et ensuite appuyez 
sur 'RETURN'" 

49100 F'RINT"pour lancer la relecture. 


48690 PRINT" la partie en cours." 
48700 PRINT: F’RINT"-"CHR* (27) "E L "CHR 
*(27)"B: Cette touche permet de voir 1 
a" 

48710 FRINT" liste des cases libres 
qu *i1 reste " 

48720 PRINT" a pourvoir." 

48730 PRINT00,25;CHR*(27)"R"CHR*(27)" 
©Appuyez sur une touche pour continuer 

H 

48740 T *=KEY*:GETT * 

48750 INK3:CLS 

48760 PRINT:PRINT"-"CHR*(27)"a D "CHR 
*(27)"c: Cette touche permet de voir 1 
a " 

48770 PRINT" liste de ce que possed 
e chaque jou-" 

48780 PRINT" eur." 

48790 F’R INT : PRINT" —"CHR* (27) "a T "CHR 
*(27)"c: Cette touche permet de voir 1 


49110 PRINT:PRINT" NOTA : Vous mettre 
z le magnéto en mar" 

49120 F'R INT "seulement lorsque ' search 
ing ' sera ap" 

49130 PRINT"paru en haut de l'écran . 

• I 

49140 PRINT" Si vous ne voulez 

pas faire" 

49145 F’RINT"une relecture appyez sur 
'ESC' au lieu" 

49150 PRINT"de 'RETURN' ." 

49155 PRINT" Si le message *Er 

ror found' apparait vous ne devez pas 
en " ; 

49160 PRINT"tenir comp te ." 

49170 GETSOLARA* 

49180 IFSOLARA*=CHR*(27)THEN49999 
49190 IFSOLARAtOCHR* ( 1 3) THEN49170 
49200 DIMRE <40,7):DIMF*(15) 

49210 RECALLRE,"TABLEAU 1",S 
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49220 WAIT5 

49230 RECALLF'*, "TABLEAU 2",S 
49240 N=RE (0, O) : FFF.=RE ( 1,0) : I =RE (2,0) 
49250 DIMK*/.<N) ,L(N) , XV. (N) , DS (40) ,P(40 
) , (1(40) 

49260 F0RK=1T0N 
49270 K*/.(K) =RE (K, 1 ) 

49280 L(K)=RE(K,2) 

49290 X7. ( K ) =RE (K, 3 ) 

49300 NEXT 
49310 FORK=1T040 
49320 DS(K)=RE(K,4) 

49330 P(K)=RE(K,5) 

49340 M (K)=RE(K,6) 

49350 NEXT 
49360 W=300: ASB7.=0 
49370 PÜF': 6GSUB50500 
49380 PRINTCHR*(6) 

49390 GOTO 19 

4 9999 CLS:PRINT : PR INT:PRINT:INK6 
50000 F’RINT: F'RINT: PR1NTCHR* (4) CHR* (13 
8)" Nombre de joueur (2\8> T" , CHR*(4) 
50010 GETN*:N=VAL(N*):IFN<20RN>8THEN5 
0010 

50020 DIMP*(N) : PRINT: PRINT:PRINT:PRIN 
T:PRINT:PR INT 
50030 FÜR1 = 1 TON 

50040 PRINT:PRINT:PRINT"Quel est le n 
oui du joueur" I "?" : PRINT: F'RINTTAB ( 15) CH 
R*(27)"E"; 

50070 GETH*: F'RINTH*; : IFH*=CHR* ( 13) THE 
N50080 

50071 IFH*=CHR*(127)THENG0SUB400: GOTO 
50070 

50073 H=ASC(H*): IF <H<320RH>90)AND(H<9 
70RH>122)THENSHÜOT:PRINTCHR*(127); :GÜT 

050070 

50075 P*(I)=P*(I)+H4:G0T050070 
50080 NEXT 

50090 CLS : PR I NT : F'R I NT : PR I NT : PR I NT : F'R I 
NT 

50100 FOR1 = 1 TON 

50105 F'* ( I ) =LEFT* (P* ( I ) , 10) 

50110 PRINT"Joueur"; I ; TAB(12);": "; P* 
( I ) 

50120 F'RINT: PRINT 
50130 NEXT:PRINTCHR*(6) 

50500 REM -chargement des donnees- 

50510 DIMA*(40):F0RI=1T039 
50520 READA*(I) 

50530 NEXT 

50540 DIMV <40): FOR I = 1T039 
50550 READV(I) 

50560 NEXT 
50570 DIMTN(40,5) 

50580 FORI=0T05 
50590 F0RJ=1T039 
50600 READTN(J,I) 

50610 NEXT:NEXT 
50620 DIMU(40) 

50630 F0RI=1T039 
50640 READU(I) 

50650 NEXT 
50660 CLS 

50670 PRINT04,13;CHR*(4)CHR*(27)"NATT 


ENTION,ON COMMENCE ! .„."CHRS<4) 

50680 WAIT100:CLS:INK5:RETURN 

60000 REM - Case occupée - 

60010 PRINT:PRINT:PRINTCHR*(4):PRINT: 
PRINT: PRINTCHR* (27) ; "J" + " * "+A*(K7. 
( I ) ) 

60012 PÜKE48321, 1 :F'0( E48361,1 
60015 I FF' ( \: 7. ( I ) ) = I T HEN60100 
60017 PRINTCHR*(4) 

60020 F'RINT-.PRINT: PRINTCHR* (133) ; " 
Vous etes chez "P* (P (K7. ( I ) ) ) 

60030 F'RINT : F'RINTCHR* ( 130) ; " Vous 1 
ui devez" TN <K7. ( I ) , M(K7. ( I ) ) ) "Francs" 
60040 L (P (K7. ( I ) ) ) =L (P (K - /. ( I ) ) ) +TN (K*/. ( I 
) , (1 (K7. ( 1 ) ) ) 

60050 L ( I ) =L < I ) -TN < K7. < I ) , M ( K7. ( I ) ) ) 
60060 F'RINT: PRINT: PRINTCHR* (27) "D"F* ( 
PU 7. ( I ) ) ) ; TAB ( 14) ; CHR* (27) ; "F: " ; L (P(K 

7. ( I ) ) ) ; " f rancs " 

60070 PRINT:FRINT:PRINTCHR*(27)"D"F*( 
I);TAB(14);CHR*(27);"F: ";L(I);"Francs 

II 

60080 WAI T W+W:CLS: INK5 
60090 RETURN 

60100 REM- 

60110 REM''' 1 CHEZ SOI . 

601 20 PR I NT : PR I NT : F'R I N T : PR I NT : F'R I NT : P 
RINTCHR*(27);"B";CHR*(27);"J Vous etes 
chez vous";CHR*(4) 

60130 F'R I NT : PR I NT : F'R I NT : F'R I NT : F'R I NT : P 
RINTCHR*(27);"EVous disposez de";L(I>; 
"Francs" 

60132 IFM(K7. (I) ) =5THENF'R I NT : PRINT : PR I 
NT: F'RINTCHR* (27) ; "F I 1 y a un hot 

el":G0T060172 

60135 IFK7. ( I ) =50RK7. ( I ) = 150RK7. ( I ) = 120R 
K7. ( 1 ) =25 OR K'/. ( I ) =350810/. ( I > =28THEN60172 
60140 F0RV=1T039 

60150 I FV=20R'V=40RV=70RV= 1 OÜRV= 1 70RV= 
200RV=220RV=300RV=330RV=360RV=38THEN60 
170 

60160 IFP(V)=0THEN60172 
60170 NEXT:G0T060175 
60172 WAIT W:CLS: INK5:RETURN 
60175 REM 
60177 G0T045000 

60180 PRINT: F'RINT: PRINT : PRINTCHR* (27 ) 

;"FVoulez-vous placer une maison ?" 
60185 F'604*=KEY* 

60190 GETG*: IFG*<>"o"ANDG*O"n"THEN60 
190 

60200 IFG*="n"THENIKN5:RETURN 
60210 CLS: IN K 2 : IFM(K7. (I) ) > lTHENCV* = "s 
"ELSECV*=" " 

60220 PRINT: PRINTCHR* (4) ; CHR* (138) -, TA 
B ( 10) ; P* ( I ) : PL0T9, 1,3: F'L0T9,2,3 
60230 F'R I NT : F'R I NT : PR I NT : F'R I NT CHR* ( 27 ) 

; "A"; CHR* (27) ; "J * ";A*(K7. (I)) 

60240 F'R I NT : F'R I NT : PR I NT : PR I NTT AB (16) ; 
CHR* (27) ; " JI1 y a de ja" ; M (K7. ( I ) ) ; "ma îs 
on"+CV* 

60245 F'RINT: F'RINT: PRINT 
60250 F'RINTTAB (6) ; CHR* (27) ; "J" ; CHR* (2 
7 ) ; "EF'r î >: de La maison : " ; U (K‘/. ( 1 ) ) ; " Fr 
ancs" 
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60260 PR INT : F'RINT : PRINTCHR* (4) ;CHR*<2 
7 ) ; "FVous avez “ ; L ( I ) ; "-francs'' 

60270 IFU (K7. ( I ) ) >L ( I ) THENPRINT: F'RINT" 
Helas,vous n avez pas assez d'argent": 
G0T060172 

60280 F'RINT : F'RINTCHRt (27 ) ; "DEtes vous 
toujours d'accord ?" 

60285 SAMBA*=KEY*:GETFS:IFF* O"o"ANDF 
$<>"n”THEN60285 
60290 IFF *="n"THENRETURN 
60300 N (K/C <I) > =M (K7. < I ) ) +1 : L ( I ) =L < I ) -U 
(K*/. ( I ) ) 

60310 I FM < K7. ( I ) ) =5THEN60330 

60315 IFM(K7. (I) ) > 1T HENK*="s"ELSEK*=" 

U 

60320 FR I NT : PR I NT : PR IN rCFIR* ( 27 ) ; " FMa i 
n tenant, il y a" ; M <K7. ( I ) ) ; "maison"+K*i G 
0 T060340 

60330 F'RINT : PRINT : PRINTCHR* <27 ) ; "FMai 
ntenant, il y a un hôtel" 

60340 F'RINTÔO,25;" Nouveau capital : 
";L(I);"francs" 

60350 WAITW+W:CL5:INK5:RETURN 

60999 REM-POSITION- 

61000 INK2:HIRES:PRINTCHR*(17):KK=0 
61010 F0RLL= 72T0234STEF' 18 

61020 CURSETLL,O,lsDRAWO,18,1 
61030 CURSETLL,180,1:DRAWO, 18,1 
61040 NEXT 

61050 F ÜRML=18TQ180ST EP18 
61060 CURSET36,ML,1 : DRAW18,0, 1 
61070 CURSET216,ML,1:DRAW17,O,1 
61080 NEXT 

61090 CURSET36,0,1:DRAW 197,0,1:DRAWO, 
198,1:DRAW-197,0,1: DRAWO ,-198,1 
61100 CURSET54, 18,1:DRAW162,0,1 :DRAWO 
,162,1:DRAW-162,0,1 :CURSET53,O, 1 
61110 DRAWO,198,1:CURSET54,18,0:DRAWO 
,162,0 

61120 CURSET58,1,0:FILL17,3,21 
61130 CURSET77,1,0:FILL17,3,16 
61140 CURSET94,1,0:FILL17,3,21 
61150 CURSET112,1,O: F ILL17,3,16 
61160 CURSET148,1,0:FILL17,3,22 
61170 CURSET166,1,0: FILL17,3,16 
61180 CURSET184,1,0:FILL17,6,22 
61190 CURSET216,1,0:FILL17,3,16 
61200 CURSET58,181,0:FILL17,3,19 
61210 CURSET77,181,0:FILL 17,3,16 
61220 CURSET94,181,0:FILL17,6,19 
61230 CURSET130,181,0:FILL17,3,16 
61240 CURSET148,181,0:FILL17,6,17 
61250 CURSET184,181,0:FILL17,3,16 
61260 CURSET202,181,0:FILL17,3,17 
61270 CURSET220,181,0:FILL17,3,16 
61280 CURSET37,19,0:FILL17,1,20 
61290 CURSET56,19,0:FILL17,1,16 
61300 CURSET37,55,O:FILL 17,1,20 
61310 CURSET56,55,0:FILL17,1,16 
61320 CURSET37,109,O:FILL17,1,18 
61330 CURSET56,109,O:FILL17,1,16 
61340 CURSET37, 145,0:FILL17,1, 1S 
61350 CURSET56,145,0:FILL17,1,16 
61360 CUR5ET37,163,0:FILL17,1,18 
61370 CURSET56,163,0:FILL17,1,16 


61380 CURSET217,19,O:FILL17,1,21 
61390 CURSET235,19,0:FILL17,1,16 
61400 CURSET217,55,O:FILL 17, 1,21 
61410 CURSET235,55,O:FILL17,1,16 
61420 CURSET217,73,0:FILL17,1,21 
61430 CURSET235,73,0:FILL 17,1,16 
61440 CURSET217,109,O:FILL17,1,17 
61450 CURSET235,109,O:F ILL17,1,16 
61460 CURSET217,145,O:FILL17,1,17 
61470 CURSET235,145,0:FILL17,1,16 
61480 CURSET217,163,0:FILL17,1,17 
61490 CURSET235,163,O:F1LL17,1,16 
61500 CURSET90,100,O 
61510 FGRH=lTOLEN(F'*m ) 

61520 CHARASC(MID*(P*(I),H)),O,1:CURM 
0V6,0,O 
61530 NEXT 

61540 R*=LEFT» <A*(K7.< I ) ) , 1 ) 

61550 IFR* = "B"ORR$= "F“ THENVS=> "Vous et 
es au "+AS(K7. (I)) 

61560 IFR*="C"ORR*="G"ÜRR*="P"ÛRR*="b 
"T HENGOSUB10567 

61570 IFLEFT* (A* (K7. ( I ) ) , 2) ="Pa"THENV* 
="Vous etes au "+A*(K%(I)> 

61580 IFR*="e"ORR*="R"THENV*="Vous et 
es "+A*<K7.<I)> 

61590 IFRS="S"THENV$="Vous etes en "+ 
A* (K7. (IM 

61600 IFRt="A"THENV*=”Vous etes a 1 " 
+A*(K7. <I> ) 

61610 IFR*="I"THENVS="Vous etes aux " 
+A*(K*/.(I) ) 

61620 F'RINT:PRINT:PRINT 
61630 F DRH=1TÜLEN(V$) 

61640 F'RINTMID* (V*,H, 1 ) ; 

61650 NEXT 
61660 FORH=1T039 

61670 IFK7. ( I ) =HTHEN60SUB43990+H*10:GÜ 
TO61690 
61680 NEXT 
61690 F0RT=1T09 

61 700 IF K 7. ( I ) =TTHENDRAWO ,-25,1: DRAW-3 
,5,1 :CURM0V6,0,1:DRAW-3,-5,1 
61710 NEXT 
61720 F0RNM=11T019 

61730 IFK7. ( I ) =NMTHENDRAW25,0, 1 : DRAW-5 
,-3,1:CURMOVO,6,1:DRAW5,-3,1 
61740 NEXT 
61750 FORTV=21T029 

61760 IFK7. ( I ) =TVTHENDRAWO, 25, 1: DRAW-3 
,-5, 1 :CURMQV6,O, 1:DRAW-3,5,1 
61770 NEXT 
61780 F0RS=31T039 

61790 IFS=K7. ( I ) THENDRAW-20,0, 1 : DRAW5, 
-3,1:CURMOVO,6,1:DRAW-5,-3,1 
61800 NEXT 

61810 I FI 7. < I ) = 10THENDRAW25, -25, 1 : DRAW 
-3,1,1:CURM0V3,-1, 1 :DRAW-1,3, 1 
61820 I Ff 7. < I ) =20THENDR'AW25, 25, 1 : DRAW— 
3,-1,1:CURMÛV3,1,1:DRAW-1,-3,1 
61830 1 FF V. ( I ) =30THENG0SUB44090: DRAW25 
,-25,1 :DRAW-3,1,1:CURM0V3,-1,1 :DRAW-1, 
3, 1 

61840 WAIT1000:TEXT:PRINTCHR*(17):CLS 
: INf 5: GOTÜoZB 
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PETITES ANNONCES 


La plaça réaarvéa aux patltaa annonças aat 
limité# En conaéquanca. callaa-ci passant 
dans laur ordre d'arrivée Par contre, les peti¬ 
tes annonces farfelues sont systématique¬ 
ment rejetées... De même, comme II est peu 
probable qu'il exiata des "généreux dona¬ 
teurs" dp matériels ou de logiciels, les peti¬ 
tes annonces faisant appel ê ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refuaéea toutes les annonces visant 
è vendre ou échanger des listes ou copies de 
logldels non garantis "d'origine", ainsi que 
toute annonce Incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites ennonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée). le texte étant rédigé à raison d'un 
caractêra par case. 

Enfin, toute annonce non accompagnée de 

timbres ne sere pas insérée. 

Vends ATMOS + Jasmin 2 + 7 disquettes + nbx 
THEOHIC + livre de programmation + déplom 
beurs (6). Tél. 75.08 12.82 après 19h30. 

Vends ATMOS : 600 F. Microdisc : 1800 F. DTL 
2000 : 800 F. GP 50A : 500 F + carte ECSI 300 F 
+ nbx prog. + livres. Jean-Claude MAH6. tél. 
40.22.36.20 HR 


Vends synthé vocal complet, tbe 300 F. Interface 
joy programmable + joystick, tbe : 350 F. Pascal 
MOLINATTI. 88 rue C. lenoir. 51100 REIMS 

Vends cassettes de ieux originaux de 95 à 20 F 
Si vous êtes intéressés, demander Cyril au 
30.41.58.79 après 18h lYvelines). 

Henriat. 5 rue G. Moquet. 91390 échange logiciels 
ATMOS sur Jasmin 2 ou 5 pouces un quart AM 50 
Ville Morsang sur Orge. Liste + timb 


Vends ATMOS Péntel + mangéto + 200 logiciels 
+ adapt. N/B + THEORIC 1 à 23 + man. réf + 
ORICàNu : 1500F I + TV N/B : 2000 Fl. Tél 11) 
60.63.47.82. 


Echange synthé vocal + HP contre 5 programmes 
originaux du commerce Joindre liste à M GABAS. 
104 route de Pau. 65000 TARBES. 


Vends séparément ATMOS + pér. + magnéto et 
nombreux logiciels (jeux). Conan. Ansouis. 84240 
LA TOUR D'AIGUES. 


Vends pour ATMOS/ORIC-1 ; Jasmin + 11 dis 
ques : 1500 F. Monit. coul. : 2000 F. Impnm. Cen¬ 
tronics : 1500F FREJUS, tél. 94 51.02.89 après 
19h. 


Vends cassettes ATMOS : Damae + Clavidact + 
Oncmunch + Ultimazone + Businessman 250 F. 
Magnéto Ad-Hoc : 250 F. Tél. (1) 45.78 70.96 
après 19h 

Recherches livres concernant ATMOS M. DARIZ 
CUREN, 16bis chemin de la Baronne, 06110 LE 
CANNET, tél. 93 45.88 71 le matin 


Vends modulateurs : PHS 60 (Pôritel - UHF SECAM) 
+ régulateur tbe : 350 F. PVP 80 IPal-Péritel) + 
alim tbe : 400 F. Philippe au 42.89 63.23 

Vends joystick Spectravidéo + interface magnéto 
(pour ORIC) : 150 F. V. JASSLET, 6 rue du Mes 
nil. 61270 AUBE 

Cherche copie notice d'utilisation ORIC FORTH de 
Tansoft. S. TREFFORT. 217 Bd. Louis Faraut, 
83140 SIXFOURS. tél 94.25.73.43. 


Echange logiciels ORIC ATMOS BCP imports et 
indédits. Bruno CARRERE. 27 rue de Mazières, 
18000 BOURGES. 


Vends THEORIC 1 à 24 : 25 F pièce. Echange 1500 
programmes sur JASMIN ou SEDORIC. G. BEL- 
TRUTTI, 1 rue G. Charbonnier, "Les Muguets". 
06300 NICE. 


Minitel connexion au tél. 40.61.26.08 Micro- 
serveur de 7 à 12h du lundi au vendredi. 


Vends ATMOS + Jasmin 2 + prog 2000 F 
GP 50 600 F. Interface ECSI + manette 350 F. 
M ANSELIN. tél 42.28 09.03 après 1 7h30. 


Vends ATMOS complet + Microdisc + magnéto 


+ programmes + disquettes : 3200 F Moniteur 
monochrome : 1000 F. Tél. (1) 43 89 79 88 


Vends cassette de jeux pour ORIC 1 à 35 F. Yann 
MASSIANI, tél 91 49 88 00. merci 


Vends ATMOS périt, transf. + 20 livres. Microdisc 
s/garantie. 10 dise, d'origine + 10 dise jeux/utili- 
taires + 15 dise. + 30 K 7 : 4500 F. Tél. 
75.96.37.08. 


Vends ATMOS + Péritel + Jasmin 2 + THEORIC 
n° 1 à 24 + livres + Jasmincalc, le tout : 2550 F. 
Tél. 42.65.92.25 bureau. Jean TAPISSIER 


Vends ATMOS + lect K 7 + lect disk + mon. coul. 
+ digit 2000 + câble + 12 livres techniques + 
13 revues THEORIC + 5 K7 mit ♦ 1 disk Master 
+ |eux + transfo : 5000 F Tél. 25.03 76 08 


Cherche THEORIC n° 1. 3. 5. 9. 11. 12 Echange 
prog AT et Microdisc. Ecrire â Etienne ROUE, 21. 
rue Maréchal Foch. 50100 CHERBOURG 

Vends ORIC ATMOS (manuel + péntel + 2 jeux 
gratuits) : 500 F. Jeux et livres, prix divers. Magné¬ 
tophone 200 F. Tél 44 57 57 68 


Achète pour ATMOS-SEDORIC programme de ges¬ 
tion de fichiers performant (tri multicritère) (LMI 
digne des possibilités du SED ou bien adaptation 
de "Multifiches" au SED Vends imprimante Sei 
kosha GP 250X (tbe) pour ATMOS avec traitement 
de texte si besoin. M. CAUQUIL. 38 bis rue des 
Brus. 81000 ALBI. tél 63 54 73.63. 


Echange détecteur de métaux contre Jasmin ou 
Microdisc. Tél. 91 25.95.51 à partir de 20h 

Vends composants neufs de la carte série (N ° 151 
sauf le circuit imprimé : 250 F. D. SONNEVILLE, 
129 rue d'Aire. 59660 MERVILLE. 


Vends GP 50A 1000 F Synthétiseur vocal 

Mageco : 300 F. 33 cas. C20 plus 24 cas du 
commerce plus 6 livres : 700 F. Tél. 21 98.75 44 
après 19h, demander Didier 


Cherche Ampli-Bus même en mauvais état. Tél. 
89 49 21.07 entre 19 et 20h. demander Rémy. 


A N N O N C ËZ - VÔ U S ! j 

les petites annonces et les messages 



r-' Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

£ SORACOM, La Haie de Pan. 35170 BRUZ 
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PETITES ANNONCES 


Vends plan + logiciel programmeur 2716à27128 
(ATMOS) : 250 F. Tout monté 800 F. M DE 
MARINIS. 28 rue du Val vert. 42400 SAINT 
CHAMOND 


Vends EPROM 27128 Vil ATMOS : 150 F ou 
échange contre ROM VIO ORIC-1. M. DE MARI¬ 
NIS. 28 rue du Val vert. 42400 ST. CHAMOND. 
tél. 77.29.75.28. 


Vends ATMOS ♦ 2 lecteurs Jasmin ♦ manuels + 
livres + 15 THEORIC + K7 + disquettes, le tout 
2500 F. Tél. 61.83.42.88 HR 


Vends THEORIC n° 8. 17 125 F chacun) ♦ Easy 
disk : 150 F + synthé vocal : 350 F ♦ carte mère : 
130 F. Demander Frédéric au 48.27.87.22. 


Cherche n° THEORIC 4. 5. 8. Vends Zebbie. Play 
ground. Invaders. Letters, 0 Cassettes d'origine. 
TéJ 93.47.61.05 le soir. 


Vends moniteur MC 14 couleur : 1500 F. ORIC 
ATMOS’ : 300 F. Séparés ou le tout ♦ jeux + livres 
+ collection THEORIC pour 3000 F. M COUVI- 
DAT. 10 rue Molière. 60560 ORRY LA VILLE. 


ATMOS vend nombreux jeux. Tél. 44.07.01.97. 
Christian DENAIN. 20-22 rue du Gai. Leclerc. 
60120 BRETEUIL. 


Vends ATMOS monit. lect. K7. pupitre bois, 
manuels, revues. 15log.jeux + assim. ang. + util. 
+ K7 vierges : 2700 F. Tél. 39.76.71.16 après 
19h. 


Vends JASMIN 2 + 7 disks + progs + mter. 
vocale et joystick programmable : 2800 F. David 
LOFFREDO. tél. 79.32.57.63 après 6h. 


Vends ATMOS + JASMIN + MCP 40 + 30 K7 
de jeu + 7 disquettes + revues + livres : 1700 F. 
Gilles GARCIA. 4. La Barre. 51200 VAUCIENNES. 


Cherche ORICIEN pouvant éditer mes listings ; tous 
services en compensation. Vends ORIC-1 + logs 
+ livres. Emmanuel au 60.04.56.15. 


Vends joystick Spectravidéo avec 2 boutons. 4 
ventouses, état neuf : 70 F. Interface pour ORIC. 
2 joys. : 90 F. V. JAJOLET. tél. 33.24.30.45. 


Vends Microdisc Sedoric + 8 disk + Bd disk : 
2000 F. Tél. 92.61.30.33. M. MEGY. 74 av. des 
PI antiers. 04200 SISTERON. 


Vends clavier + prom ATMOS : 300 F. Logiciels 
d'origine vendus moitié prix. Demander liste à 
Christian SCHERER. 1 place du Pâtureau. GES- 
VRINE. 44240 LA CHAPELLE SUR ERDRE. 


A vendre TELESTRAT + ROM ATMOS + JASMIN 
2 + interface joystick programmable + lOdisquet 
tes vierges : 5000 F. Tél. 30.34.33.69 après 18h. 


Vends ATMOS + alim. + câbles + adapt. N/B + 
25 THEORIC + livres + doc + >100 log. K7 : 
1950 F. Ch. GUINNEAU. Fourgeaud, 24700 
MONTPON MENESTEROL 


Vends ordinateur ATMOS : 500 F avec synthé 
vocal + lecteur disquettes : 1400 F. Jasmin LE 
BRETON. J F, rue du Centre. 50520 JUVIGNY. 


Branches du minitel essayez Delta Pormchet, micro 
serveur expérimental de 22 h â 14 h. Ptes annon¬ 
ces messages. 40.61.23.26. 


Vends dises 3" avec softs (aux choix sur 650). prix 
40 F port compris. Philippe Le Ménelec. 15. rue O 
Beauregard. 91.380 Chilly-Mazarin. Tél. 
69.09 10.79. le soir. 


Recherche Théorie n° 8 ou photocopie sur branche 
ment moniteur monochrome Bertrand Didier. 27. 
r de Strasbourg. 93800 EPINAY/S. 


Echange One atmos 48 ko. neuf contre ZX Spec 
trum * Tél 42 02 69 87. après 18 h 30. deman 
der Jean Claude 


Vends One Atmos. 10 livres (basic assembleur) 
+ 50 jeux ♦ magnéto ♦ 20 Théories, prix 2000 F 
à déb Tél 78 93 35.12. après 19 h 30 


Vends Atmos pour cause achat téléstrat. 800 F. 
cherche contact pour téléstrat Le Flanchec Y.. 20. 
avenue de Tarente. 29200 BREST 


Vends One Atmos péntel ♦ 20 cassettes (200 
jeux). 950.F, magnéto K7 Oric. 215 F. Conan Pei 
gus. Ansoûis. 84240 La Tour d'Aigues 


Vends One Atmos + Jasmin 2 + multifich. V3.1 
+ péritel ♦ livres + revues Théorie + cayonopti 
que. prix 3200 F. Fayolle Jean. tél. 70.45 44.08. 


Vends ORIC ATMOS ♦ adaptateur N B ♦ inter lace 
♦ manette ♦ logiciels + programmes 1200 F 
Tél 39 13.36.82 


Urgent cherche K7 Forth pour ORIC 1 Achète ou 
échange contre jeux. Mathie E. Maisel. Ch 228. 5 
rue C Fourier. 9101 1 EVRY 


Cherche programmes ER. SSTV. CW RTTY. FAC 
avec ou sans interfaces ORIC 1. échange éventuel 
contre autre programme Tél 49 79 84 69 


Vends ATMOS * 17K7 *■ Microdisk I ensemble 
2300 F ou séparément. Christophe Dumas. 60 av. 
Jean Mouliérat. 46400 ST CERE. tél 
65.38 01.01 


Vends ATMOS > lecteur K 7 + moniteur mono * 
logiciels 2800 F cause achat TELESTRAT Tél. 
42 26 80.36 du dimanche au mardi après 16h 


Recherche pour ORIC ATMOS logiciel compte ban 
caire en cassette Faire proposition au 33.61 48 78 
après 19h 


Vends Amplibus 200 F Joystick ♦ interface 
200 F Tél 1 42 40 10.72 (soir). 


Vends ATMOS ♦ Microdisk + Sedoric ♦ lecteur 
K 7 ♦ interface progr + câbles ♦ 15 disques de 
jeux et utilitaires joystick 3000 F Tél. 
98 40 66 06 


Vends Atmos (7/86) sous garantie ♦ manuel 
♦ péntel + cables + 12 K7 jeux. 700 F Legal th. 
15. rue Pasteur. 06800 Cagnes-sur Mer. Vends 
aussi pour Jasmin logiciels Easy text. multifich et 
Jasmin-calc avec notices, peu servi : 300 F pièce 
750 F les 3. 


Vends Atmos + télé + lect. disq. Jasmin + Easy 
text + tableur assemb./desa + 12 disquettes. 24 
Théorie + livres. 3000 F Kléber, tél. 90.72.83 51. 


HENRIAT. 05 rue G Moquet. 91390 MORSANG 
recherche Musirama Outimatic 1 Recherche, éch 
logiciels disque Jasmin 2 ou 5''1/4 ATMOS 


Vends ORIC 1 : 350 F ATMOS : 550 F MCP 40 
550 F Microdisc 1 . 900 F Crayon optique 1 50 F 
Tél. 68 22 91 66 après 18h 


Vends ATMOS + SEDORIC + 11 revues ORIC ♦ 
disquettes + nombreux programmes + 2 livres : 
2500 F. F HEREDERO. 30 ch Amoureux. 31500 
TOULOUSE, tél 61 26 15 30 


Vends ORIC 1 ♦ ATMOS 500 F. Lect. ♦ contr 
Jasmin 1500 F. 30 disquettes dont 200 jeux 
900 F Amplibus 200 F Denis SEBBAG. tél 
91 41 70 13 


Vends ATMOS 2 ROM + cal. 900 F Jasmin 2 
1800 F TV 700 F THEORIC (1 à 23) : 400 F. 
Philippe, tél. (1) 69.09.58.36 


Vends 21 disq Jas (Vortex. etc) 800 F 41 K7 
200 F Soft: 1000 F + divers livres (TDOS ..). Phi 
lippe, tél. (Il 69.09.58.36. 


ATMOS ♦ JASMIN : 2500 F. tbe. possibilité logi 
ciels et contacts. Clermont Ferrand. Tél 
73 38 65 42 le soir 


Vends pour JASMIN Easytext + 5 disques avec 50 
prog *- interface prog manette ♦ manette Atari 
Tél 79 32.50 36 le soir 


Vends DTL 2000 modifié Jasmin ♦ Jasmitel 
1000 F Tél 97 63.36.22. domander Bertrand. 


Vends Graphiscope : 1200 F (fin garantie déc 86) 
Echange éventuel faire offre Bertrand BESNARD. 
BP 80. 94320 THIAIS 


Vends ATMOS ♦ log. Aigle. Zénon. Zorgon. Tyran 
+ 70div. util Ass . Renum. Del. ETS + collée 
lion THEORIC 1 à 24 1000 F. Tél 46 38 06 13. 


Vends JASMIN 2 + livre TDOS ♦ Jasmmcalc : 
1715 F M DANZE (Qu.mper). tél 98 90 42 11 


Vends2ZX81 + 16 K ^ bip + bus souple + imp. 
thermique + manuel + 5 livres + Ordi-5 + doc. 
r- cassettes 470 F. Tél (1) 46 58.33.93 E. 
RUDAZ. 94200 


Vends mach. à écrire électron. Brother EP 12 
matrice therm. 5x7 équipée prise RS 232 
1500 F P TRIBOULET. tél 47 78 02 81 


Vends interface joystick pour ATMOS (programma 
ble dernier modèle de chez Eurêka) : 260 F. tél. 
64 90 19 10 Gianm (soir). 


Vends MCP 40 400 F. Tél 45.01 98 98 (Franck). 


Vends ATMOS complet + magnéto sous garantie 
900 F Livres et revues THEORIC. Hebdogiciel. 
L'Onc à Nu. etc Tél 43 45 26 55 


Cherche lecteur dise ♦ Sédooc + dise. Tél. 
99 57 23 47. 


Vends ATMOS. Jasmin 1800 F. GP 100: 1000 F. 
Synthé vocal 200 F Modem : 700 F. Momt. 
coul 1000 F Divers Tél 35.84.97 94 P GUES 
DON 


Vends One 1 *• Jasmin ♦ moniteur vert ♦ 7 K 7 
du com. + 4 disquettes (20 logiciels) + revues 
3000 F. Tél 51 52.14.72. 


Vends Atmos + microdisk + sedoric + impr. 
MPC 40 + light pen + 15 disq. (60 progs) + livres 
+ revues 3500 F. R. Coutin. tél. 96 43.91.08. 


Hennat. 5.rue G. Moquet. 91390 Morsang vds 
2XAtmos + lect. Jasmin 2 + Jasmin AM5D en 5P 
1/4 + monit. coul. + K7 lect. + 200 K7 + 200 
disks. 5000 F, cadeau en sus (bouquins + synth.) 


Logiciel pro "gestion familiale" pour Oric 
+ Jasmin, gère dépenses, crédits, comptes, tri 
muticritères. Tél. 80.75.14.77 jo ap. 17 h. 


Vends Atmos + 27 jeux (karaté, playground) 
♦ magnéto, complet, t. b. ét. + manuel + 7 
Théorie. 2000 F à débattre Tél. 62.35.24.37 à 
Laurent vite 
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ABONNEZ 

VOUS. 

— " VALABLE POU R ’^ t un seu | '"“" e '°' ACOf A, I \ \ 10 

(olteiMio" : H 1 " 4 l'ordr» *• SOB > \ \ V* 

Cl-Lolnt - <*>*“• cÔrÂcÔbA' U.H— d * "° B „ » 

1 wmo- 50 35170 B«L)X me>o vo „ e obo,—> , 

mnte sur 1© P roC . 15 du mois. 

Pour être P" s JV* nouS porven.r avant prénom . | 

nom . .^ 

. 1 

Adresse - ville . ■ 

Code Posta» .' signature ••••'* . ^ • 70 F I 

2^-ssVsSSSî»«t.St t 

. SORACQM 

*6 disque»®^ ___- 

LÈS DISQUETTES - DÊ - THËÔRIC ' 



Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


Le prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette), 146 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 

N ° 2 THEORIC n° 6 et 7 

N° 3 THEORIC n° 8 et 9 

N° 4 THEORIC n° 10 et 12 

N° 5 THEORIC n° 13 et 14 

N° 6 THEORIC n° 1 5 et 16 

N° 7 THEORIC n° 1 7 et 18 

N° 8 THEORIC n° 19 et 20 

N° 9 THEORIC n° 21 et 22 

N° 10 THEORIC n° 23 et 24 

N° HS THEORIC HORS SERIE (n° 11) 

VOLUME : T023M6 

U MUSIC .BAS S 
U DUMP .BAS S 
U DUMP .BIN S 
U RWSEZTOF.. BAS S 
U CHANGE .BAS S 
U ROUTINE .BIN S 
U REMCOLOR.BAS S 



U 

JEUVIE .BAS 

S 


U 

GENE1 .BIN 

S 


U 

GENE2 .BIN 

5 


U 

6ENE3UV .BIN 

S 


U 

DATh+hT .BAS 

S 


U 

DATA+01 .BAS 

s 


U 

ECRI-E70.BIN 

s 


U 

camember.bas 

s 


U 

INT-GEN2.BAS 

s 


U 

INT-GEN1.BAS 

B 


U 

INT-5EN3.BAS 

5 


U 

filsi .BAS 

S 


U 

FIL52 .BAS 

s 


U 

FILS3 .BAS 

s 


U 

SEO .BAS 

s 


U 

SUFFACE3.BAS 

s 

76 SECTOFS 

U 

POSITION.BAS 

5 

7 SECTOFS 

U 

LEC’SEZT.BAS 

s 

2 SECTOFS 

U 

LCA’DISK.BAS 

5 

4 SECTOFS 

U 

POUSFOUS.BAS 

S 

13 SECTOFS 

’J 

ATMFAFI S.BAS 

s 


19 SECTORS 

2 SEC TOPS 2J" 7 SEC T ORS F^tEE 


BON DE COMMANDE 
DES DISQUETTES THEORIC 


21 SE2TORS 
6 5ECT0RS 
û SECTOFS 
6 SECTOFS 
11 EECTOFS 
11 SECTOFS 
9 SECTOFS 
8 SECTQRS 
15 SECTOFS 
15 SECTOFS 
19 SECTOFS 
14 SECTOFS 
14 SECTOFS 
14 SECTOFS 
2 SECTOFS 

11 SECTOFS 
5 SECTOFS 

12 SECTOFS 
14 SECTCF.S 

22 SECTOFS 
99 SECTOFS 


Je commande les disquettes 1 2 345 HS678910 11 
Ci-joint : 116 F par disquette et mon étiquette abonné 

146 F par disquette cor je ne suis pas abonné 


NOM .Prénom 

Adresse.. 


Soit au total la tomme de 
que ci-joint. 


F réglée par chè- 


Code Postal .... Ville 
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